Hash auf Values prüfen wenn vorhanden ausgeben (gelöst) - #166411 (Allgemeines zu Perl)

GUIfreund

2013-03-18 17:58

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

1
2
3

foreach my $key3 (keys (% { $hash->{$key}->{$key2}})) {
    print "Schluessel: $key3\n";
}

ersetzen durch

Code (perl): (dl )

1
2
3

while (my($key3, $wert) = each (% { $hash->{$key}->{$key2}})) {
    print "Schluessel: $key3\nWert: $wert\n";
}

Gruß
GUIfreund