将哈希内部转换成最优雅的方法是什么？

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;

这是有效的，因为reverse将%start哈希作为表单列表（key1 value1 key2 value2 ... keyN valueN）;然后反向反转列表（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;