dunque, lo script mi da diversi errori. eccoli:
1)mi dice operatore mancante? prima di "$parola in"
2)quando si arriva all'array @parole mi chiede se dovevo predichiararlo
3)infine mi da due errori di sintassi per "$parola in" e dopo l'ultima graffa che chiude il ciclo...
dai, che siamo (siete..) sulla strada giusta...
+-------------------+
EDIT.
Ho modificato lo script in qst modo ed ora non mi da errori, problema è che non da nemmeno risultati:
...codice:print " I must search in: $filein"; chomp ($filein=<STDIN>); open (FILE, "<$filein") || die "!!! $filein not found !!!"; @parole=$filein; #ho dichiarato l'array $results="words_founded.txt"; open(OUT,">$results"); print (OUT "The words founded in $filein are: "); while (<FILE>) { my @parole = split(/\s*/); foreach $parola (@parole) { if($parola =~ /^[0-9a-c]{16}$/) { print (OUT "$parola "); } } print (OUT "\n"); } print "Done! Now look into $results ...";}

) sulla strada giusta...
Rispondi quotando