Código
#!usr/bin/perl #DestroyerShells 0.3 #Writtten By Doddy H use File::Find; my @nombres = ("C99Shell","r57shell","DxShell","HiddenShell","~ Andr3a92 ~ Sh3ll ~","CShell","Dark Shell","GsC SheLL","N3fa5t1cA Sh3ll","ONBOOMSHELL", "StAkeR ~ Shell","MoDDeD By KinG-InFeT","31337 Shel"); my @founds; unless($ARGV[0]) { } else { start($ARGV[0]); } sub start { find(\&finder,$dir); sub finder { my $file = $_; if(-f $file) { if ($file =~ /\.txt$/ or $file =~ /\.php$/){ my $abrir = $File::Find::name; for my $rastro(@nombres) { if ($words=~/$rastro/ig) { }}}}} my @founda = repes(@founds); for(@founda) { } } elsif ($op=~/n/ig) { } else { } } } sub repes { foreach $test(@_) { } } # The End ?