将哈希翻过来最优雅的方法是什么?
我的意思是用值替换键,反之亦然(假设所有值都是 100% 唯一的)。
例如。
从...开始
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;
}
但这不可能是最优雅的方式!
最佳答案
reverse
可能是最惯用的方式之一:
my %finish = reverse %start;
这是有效的,因为反向采用
%start
散列作为表单列表 (key1 value1 key2 value2... keyN valueN);然后 reverse 反转列表(valueN keyN ... value1 key1)。将该列表分配给散列变量,然后将其转换为散列,奇数元素成为键,偶数元素成为值或者您可以使用
map
(不那么优雅但仍然是惯用的):my %finish = map { ( $start{$_} => $_ ) } keys %start;
关于perl - 将哈希翻过来最优雅的方法是什么?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9268647/