[FoLUG] problema con perl

[Marco Baroni]

>   foreach $_(@string2) {
>     if ($_ = ~ /^<(.*)/){
>       delete $string2{$_};
# qui stai trattando l'array come una hash table
>       }
>    
> }
>    print "@string2";
	# qui prob intendi
	# print join "",@string2;
	# o qualcosa del genere?

Il modo migliore per filtrare un array e' con grep, tipo:

@newstring = grep(!/^</, @string2);
print "",@newstring;

o simili.

Saluti,

Marco