微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

perl – 更清洁的方式来存储用数组ref替换标量哈希值?

我正在构建一个散列,其中与标量相关联的键不一定是唯一的.期望的行为是,如果键是唯一的,则值是标量.如果密钥不是唯一的,我希望该值是与密钥关联的标量的数组引用.由于哈希是迭代构建的,我不知道密钥是否是提前唯一的.现在,我正在做这样的事情:

if(!defined($hash{$key})){
   $hash{$key} = $val;
}
elseif(ref($hash{$key}) ne 'ARRAY'){
   my @a;
   push(@a,$hash{$key});
   push(@,$val);
   $hash{$key} = \@a;
}
else{
   push(@{$hash{$key}},$val);
}

有更简单的方法吗?

解决方法

rjh是对的钱.

我写了太多的代码,完全按照你的描述编写 – 哈希值是一个数组引用,除非它不是.大量和条件类型检查.然后有一天它打了我,“我为什么要写这些废话?只是到处使用阵列参考,虚拟”我对自己说.从那天起,当我在公园散步时,蓝鸟从树上飞下来向我唱歌.

push @{$hash{$key}},$val;

这就是你要做的一切.如果密钥不存在,则数组将自动生成.

如果你不喜欢autoviv,并希望明确做到:

$hash{$key} = [] unless exists $hash{$key};
push @{$hash{$key}},$val;

即使这种“冗长”的方法也要短得多.

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐