Un simple programa para buscar cierto texto en un archivo o directorio.

#!usr/bin/perl
#FinderText 0.1 
#Written by Doddy H
 
print "\n-- == FinderText 0.1 == --\n\n";
unless($ARGV[0]) {
print "\n[+] sintax : $0 <file/dir> <text>\n";	
} else {
print "\n[+] Searching text\n\n";
if (-f $ARGV[0]) {
verificar($ARGV[0],$ARGV[1]);
}
if (-d $ARGV[0]) { 
goodbye($ARGV[0],$ARGV[1]);
}
print "\n[+] Finished\n";
}
print "\n\n[+] Written By Doddy H\n\n";
 
sub verificar {
 
my ($file,$text) = @_;
my $numero_linea = 0;
 
open(FILE,$file);
my @words = <FILE>;
close FILE;
 
chomp @words;
 
for my $linea(@words) {
chomp $linea;
$numero_linea++;
if ($linea=~/$text/ig) {
print "[+] Text $text Found in file $file in line $numero_linea\n"; 
}}}
 
sub goodbye {
 
opendir DIR,$_[0];
my @archivos = readdir DIR;
close DIR;
 
for (@archivos) {
next if $_ eq "." or $_ eq "..";
my $fichero = $_[0]."/".$_;
 
if (-f $fichero) {
verificar($fichero,$_[1]);
}
 
if (-d $fichero) {
&goodbye($fichero);
}}}
 
# The End ?