Umkehren einer Multi-Hash-Wert in Perl

Question

Ich habe einen Hash, der wie folgt aussieht:

{ bmw  => { id => 1, color => brown } } 
{ mercedes => { id => 2, color => black } } 

Ich möchte diesen Hash in Perl umkehren, so dass ich nur eine Abbildung von id erhalten => name_of_car. Muss ich die umgekehrte Funktion irgendwie verwenden?

Hinweis: Ich kann immer durch den ursprünglichen Hash laufen und die Schlüssel und Werte entsprechend den neuen Hash zuweisen, Mutter wollte ich wissen, ob es ein schlankeres Weg war.

Answer 1

Sie nicht eine glatte Art und Weise brauchen:

my %h = (
    bmw  => { id => 1, color => "brown" } , 
    mercedes => { id => 2, color => "black" } 
); 
my %j = map { ($h{$_}{id} => $_) } keys %h; 

for (keys %j) { 
    print "$_ $j{$_}\n"; 
} 

Ausgang:

 
$ ./silly.pl 
1 bmw 
2 mercedes 

Answer 2

Was Sie hochgeladen haben, ist nicht gültig Perl, aber ich denke, dass ich Ihre Bedeutung nehmen. Eine glatte Möglichkeit, dies zu tun wäre mit einer hash slice und einer Karte.

my %hash = (
    bmw  => { id => 1, color => 'brown' }, 
    mercedes => { id => 2, color => 'black' }, 
); 
my %new_hash; 
@new_hash{ map { $_->{id} } values %hash } = keys %hash;