Ein Array in einem Hash zu einem Hash umwandeln - #115509 (Allgemeines zu Perl)

MatthiasW

2008-10-14 17:49

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

1
2
3

for my $key ( keys %HvA ) {
    $hash_neu{$_} = $key for @{ $HvA{$key} };
} # for

MfG

edit: Bei deinem Beispiel-Hash werden dabei aber Werte verloren gehen, weil einige Keys mehrfach vorkommen, oder habe ich dein Problem falsch verstanden?

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'