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

Question

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

#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}三次.

Answer 1

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