Whay è il modo più elegante per trasformare un hash dentro e fuori?

Question

Qual è il modo più elegante per trasformare un hash dentro e fuori?

Con questo intendo sostituire chiavi con valori e viceversa (presupponendo che tutti i valori siano al 100% univoci).

E.g.

Inizia con

my %start = (1=>"a", 2=>"b", 3=>"c"); 

# ... 

# PROFIT: 
my %finish = ("c" => 3, "b" => 2, "a" => 1); 

so che posso farlo nel modo forza bruta:

foreach my $key (keys %start) { 
    my $value = $start{$key}; 
    $finish{ $value } = $key; 
} 

Ma questo non può essere il modo più Perly-elegante di farlo!

Answer 1

reverse è probabilmente tra i modi più idiomatiche:

my %finish = reverse %start; 

Questo funziona, perché contrario prende il %start hash come una lista della forma (key1 valore1 valore2 chiave2 ... Keyn valoreN); quindi inverte inverte l'elenco (valoreN chiaveN ... valore1 chiave1). Assegnazione di tale elenco a una variabile hash poi lo trasforma in un hash con elementi dispari diventare chiavi e anche elementi che diventano valori

oppure è possibile utilizzare map (meno elegante ma ancora idiomatica):

my %finish = map { ($start{$_} => $_) } keys %start; 

Answer 2

my %start = (1=>"a", 2=>"b", 3=>"c"); 

my %finish; 
@finish{values %start} = keys %start;