Whay是最优雅的方式来把哈希里面出来？

Question

什么是最优雅的方式来把哈希里面出来？因此，我的意思是用值替换键，反之亦然（假设所有的值都是100％唯一的）。

E.g.

开始

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

# ... 

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

我知道我能做到这一点的蛮力方式：

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

但是这不能成为这样做的最佩尔利，优雅的方式！

Answer 1

reverse可能是最惯用的方式中：

my %finish = reverse %start; 

这工作，因为反向取%start哈希的形式（key1的值1键2值2 ... keyN值N）的列表;然后反转反转列表（valueN keyN ... value1 key1）。分配该列表的哈希变量，然后把它变成与奇数元素成为键和偶数元素成为价值

或者你可以使用map（那么优雅，但仍然惯用语）的哈希：

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

Answer 2

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

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