Whayは、ハッシュを裏返す最もエレガントな方法ですか？

Question

ハッシュを裏返す最もエレガントな方法は何ですか？

これは、キーを値で置き換えることを意味し、その逆もあります（すべての値が100％ユニークであると仮定して）。

など。

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

しかし、これはそうすることの最もPerly、エレガントな方法にすることはできません。

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

# ... 

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

と

スタートは、私はそれを強引なやり方を行うことができます知っています！

Answer 1

reverseは、最も慣用的な方法の中で、おそらくです：

my %finish = reverse %start; 

逆フォーム（KEY1値1のKEY2の値2 ... keyN値N）のリストとして%startハッシュを取るので、これは、動作します。リストを逆順に反転します（valueN keyN ... value1 key1）。

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

Answer 2

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

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