perl – 将新值添加到数组哈希的简写

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

导读：下面是我想在某种循环中构建数组哈希时必须编写的代码块的概括. #get value and key that I want to usemy $value = getvalue();my $key = getKey();#add value to hash using keyif($hash_of_arrays{$key}){ push(@{$hash_of_arrays{$key}},$value);}else{

下面是我想在某种循环中构建数组哈希时必须编写的代码块的概括.

#get value and key that I want to use
my $value = getvalue();
my $key = getKey();

#add value to hash using key
if($hash_of_arrays{$key}){
    push(@{$hash_of_arrays{$key}},$value);
}
else{
    $hash_of_arrays{$key} = [$value];
}

为这样一个简单的任务编写if语句非常繁琐,但需要完成它,因为在哈希中未定义其键时推送一个值会导致问题.我只是想知道是否有任何简写来写这个 – 我不必写三次$hash_of_arrays {$key}.

解决方法

推@ {$HoA {$key}},$value;效果非常好,是推荐的事情.如果您使用它的代码有“问题”,那么请询问这些问题.

（编辑：李大同）

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