在Perl中合并哈希:特殊情况

Question

如何在perl中合并两个哈希值,其中键可以碰撞,值是数组.如果发生冲突,我想合并值数组.

正常合并会不会很好？

我很抱歉,如果这是一个重复,但我试着抬头,但没有任何这样的具体出现.

谢谢!

Answer 1

要将%hoa2合并到%hoa1中:

for (keys(%hoa2)) {
   push @{ $hoa1{$_} }, @{ $hoa2{$_} };
}