script para localizar conteudo de arquivo
Este script serve para localizar conteudo de arquivo.
Não e de minha autoria mas acho o mesmo muito util.
Não e de minha autoria mas acho o mesmo muito util.
Descrição
Este script serve para localizar conteudo de arquivo.
Não e de minha autoria mas acho o mesmo muito util.
Não e de minha autoria mas acho o mesmo muito util.
#!/usr/bin/perl
open(FIND, "find . -print |") || die "Nao pode rodar ACHA: $!\n";
FILE:
while ($filename = <FIND>) {
chop $filename;
next FILE unless -T $filename;
if (!open(TEXTFILE, $filename)) {
print STDERR "Nao pode abrir $filename -- continuando ...\n";
next FILE;
}
while (<TEXTFILE>) {
foreach $word (@ARGV) {
if (index($_, $word) >= 0) {
print $filename, "\n";
next FILE;
}
}
}
}