Guest robiwan Code (perl): (dl ) 1 2 for (keys %HASH) {$x++}; print "Anzahl der keys von %HASH: $x\n";
1 2
for (keys %HASH) {$x++}; print "Anzahl der keys von %HASH: $x\n";
my $x=keys %HASH;