Inversión de un hash de valores múltiples en Perl

Question

tengo un hash que tiene este aspecto:

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

Quiero revertir este hash en Perl para que apenas consigo un mapeo de id => name_of_car. ¿Debo usar la función inversa de alguna manera?

Nota: siempre puedo repetir el hash original y asignar las claves y los valores de acuerdo con el nuevo hash, tuerca que quería saber si había una manera más suave.

Answer 1

no necesita un camino resbaladizo:

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

Salida:

 
$ ./silly.pl 
1 bmw 
2 mercedes 

Answer 2

Lo que has enviado no es válida Perl, pero creo que tomo su significado. Una buena manera de hacerlo sería con un hash slice y un mapa.

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