perl - 向数组散列添加新值的简写

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;效果很好，是推荐的做法。如果您使用它的代码有“问题”，那么请询问这些问题。