在Perl中颠倒哈希的关键和价值观

发布时间：2020-12-15 21:19:47 所属栏目：大数据来源：网络整理

导读：我想把这个价值作为关键，而关键的价值。这样做最好的方法是什么？解决方法改编自 http://www.dreamincode.net/forums/topic/46400-swap-hash-values/：假设你的哈希存储在$ hash中： while (($key,$value) = each %hash) { $hash2{$value}=$key;}%hash=%

我想把这个价值作为关键，而关键的价值。这样做最好的方法是什么？

解决方法

改编自 http://www.dreamincode.net/forums/topic/46400-swap-hash-values/：

假设你的哈希存储在$ hash中：

while (($key,$value) = each %hash) {
   $hash2{$value}=$key;
}

%hash=%hash2;

看起来像更优雅的解决方案可以通过反向(http://www.misc-perl-info.com/perl-hashes.html#reverseph)实现：

%nhash = reverse %hash;

请注意，相反，重复的值将被覆盖。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!