[Perl] FinderText 0.1

[BigBear]

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

Código (perl) [Seleccionar] Expandir

#!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 ?