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

前端之家收集整理的这篇文章主要介绍了perl – 将新值添加到数组哈希的简写前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
下面是我想在某种循环中构建数组哈希时必须编写的代码块的概括.
#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;效果非常好,是推荐的事情.如果您使用它的代码有“问题”,那么请询问这些问题.

猜你在找的Perl相关文章