Array leeren - warum geht's nicht?

[Rolf Rost]

Hallo,

=
%bla = ("a","text", "b","text", "c","text");

vorher

while( ($k, $v) = each %bla){ print "$k \t $v \n" }

values leeren

foreach my $k (keys %bla){ $bla{$k} = undef }

print "\n\n-------- nachher ------------------------\n\n";
while( ($k, $v) = each %bla){ print "$k \t $v \n" }

bezüglich map() siehe Matti's post.

Gruss, Rolf