ehm..ci sarebbe un problemino...
io ho modificato lo script in qst modo:
codice:
chomp ($filein=<STDIN>);
open (FILE, "<$filein") || die "!!! $filein not found !!!";
$results="results.txt";
open(OUT,">>$results");
while (<FILE>) {
if (/^[0-9a-c]{16}$/) {
print (OUT "The words founded in $filein are: ");
print (OUT);
}
}
ma..
1)se all'interno del file vi sono altre parole diverse, non rileva nessuna di quelle "speciali"
2)anche se per prova metto solo una parola "special" nel file di testo, se questa è accompagnata o preceduta da spazi vuoti , non viene rilevata