Simple script para buscar patrones en cualquier directorio.

#!usr/bin/perl
#FinderText 0.2
#Coded by Doddy H
 
head();
print "[+] Directory : ";
chomp( my $dir = <stdin> );
print "\n[+] String : ";
chomp( my $string = <stdin> );
print "\n[+] Searching text\n\n";
goodbye( $dir, $string );
copyright();
 
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/ ) {
            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, $_[1] );
        }
    }
}
 
sub head {
 
    print qq(
 
 
 @@@@@ @           @             @@@@@               
 @                 @               @               @ 
 @                 @               @               @ 
 @     @ @ @@   @@@@  @@@  @@      @     @@@  @  @ @@
 @@@@  @ @@  @ @   @ @   @ @       @    @   @ @  @ @ 
 @     @ @   @ @   @ @@@@@ @       @    @@@@@  @@  @ 
 @     @ @   @ @   @ @     @       @    @      @@  @ 
 @     @ @   @ @   @ @   @ @       @    @   @ @  @ @ 
 @     @ @   @  @@@@  @@@  @       @     @@@  @  @  @
 
 
 
);
 
}
 
sub copyright {
    print "\n\n-- == Doddy Hackman 2012 == --\n\n";
    <stdin>;
    exit(1);
}
 
# The End ?