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;
my @words = <FILE>;
for my $linea(@words) {
$numero_linea++;
if ($linea=~/$text/ig) {
print "[+] Text $text Found in file $file in line $numero_linea\n"; }}}
sub goodbye {
for (@archivos) {
next if $_ eq "." or $_ eq "..";
my $fichero = $_[0]."/".$_;
if (-f $fichero) {
verificar($fichero,$_[1]);
}
if (-d $fichero) {
&goodbye($fichero);
}}}
# The End ?