Inversione un hash più valori in Perl

Question

ho un hash che assomiglia a questo:

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

voglio invertire questa hash in Perl in modo che ho appena ottenere una mappatura delle id => name_of_car. Devo usare la funzione inversa in qualche modo?

Nota: Posso sempre ripetere l'hash originale e assegnare le chiavi e i valori di conseguenza nel nuovo hash, il dado che volevo sapere se c'era un modo di sfarfallio.

Answer 1

Non hanno bisogno di un modo chiazza di petrolio:

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"; 
} 

uscita:

 
$ ./silly.pl 
1 bmw 
2 mercedes 

Answer 2

Quello che hai postato non è perl valida, ma penso che mi prendo il tuo significato. Un modo semplice per farlo sarebbe con un hash slice e una mappa.

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