sub html { print "\n"; print "
\n"; foreach my $key (sort keys (%hash4html)) { print "Info
\n"; foreach my $key2 (keys (% {$hash->{$key}->{'Info'}})) { print "".$key2." = ".(%{$hash}->{$key2})."
"."\n"; }print "\n"; } print "\n"; print "\n"; } Bei der Zeile [print "".$key2." = ".(%{$hash}->{$key2})."
"."\n";] werden keine Werte ausgespuckt...Weiss jemand was ich falsch mache?