在perl中将值从一个哈希复制到另一个

发布时间：2020-12-15 22:02:28 所属栏目：大数据来源：网络整理

导读：我有两个哈希,一个大一个小.所有较小的哈希的键显示在较大的哈希中,但值不同.我想将值从更大的哈希复制到较小的哈希. 例如.： # I have two hashes like so%big_hash = (A = '1',B = '2',C = '3',D = '4',E = '5');%small_hash = (A = '0',B = '0',C = '0');

我有两个哈希,一个大一个小.所有较小的哈希的键显示在较大的哈希中,但值不同.我想将值从更大的哈希复制到较小的哈希.

例如.：

# I have two hashes like so
%big_hash = (A => '1',B => '2',C => '3',D => '4',E => '5');
%small_hash = (A => '0',B => '0',C => '0');
# I want small_hash to get the values of big_hash like this
%small_hash = (A => '1',C => '3');

一个明显的答案是循环通过小哈希的键,并复制这样的值

foreach $key (keys %small_hash) { $small_hash{$key} = $big_hash{$key}; }

有更短的方法来做到这一点吗？

解决方法

@small_hash{ keys %small_hash } = @big_hash{ keys %small_hash };

（编辑：李大同）

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