1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; my $h_systemKapitel = {}; my $key_SysKap; foreach $key_SysKap ( keys %h_systemKapitel ) { print "\n#####################################################\n"; print "key_SysKap = <$key_SysKap>\n"; print $h_systemKapitel{ $key_SysKap }; print "\n\n"; } # EO foreach key_SysKap