Perl - 合并包含重复键的哈希

Question

我有两个可以包含相同键的哈希。我试图以这样一种方式合并两个哈希，如果密钥存在于两个哈希中，我想在各自的哈希中添加值。

my %hash1= ();
$hash1{'apple'} = 10;
$hash1{'banana'} = 15;
$hash1{'kiwi'} = 20;

my %sourceHash = ();
$sourceHash{'apple'} = 12;
$sourceHash{'orange'} = 13;
$sourceHash{'banana'} = 5;


mergeHash(\%hash1, \%sourceHash);


sub mergeHash {
    my $hash1 = shift;
    my $hash2 = shift;

    foreach my $key (keys %{$hash1})
    {
        if (exists $hash2->{$key}) {
            ${hash2}->{$key} = $hash1->{$key} + $hash2->{$key};
        } else {
            ${hash2}->{$key} = $hash1->{$key};
        }
    }
}

我希望 hash1 的结果是

hash1{'apple'} = 22;
hash1{'orange'} = 13;
hash1{'banana'} = 20;
hash1{'kiwi'} = 20;

但是我得到一个异常说不能修改标量赋值中的常量项。我做错了什么？

Answer 1

你说：

我希望 hash1 的结果是

hash1{'apple'} = 22;
hash1{'orange'} = 13;
hash1{'banana'} = 20;
hash1{'kiwi'} = 20;

但在您的代码中，您会遍历 $hash1 的键：

 foreach my $key (keys %{$hash1})

并修改$hash2的内容：

if (exists $hash2->{$key}) {
    ${hash2}->{$key} = $hash1->{$key} + $hash2->{$key};
} else {
    ${hash2}->{$key} = $hash1->{$key};
}

所以你不应该期望看到$hash1 有任何变化，你正在改变$hash2。

我将此添加到您的代码中：

use Data::Dumper;

并且，在拨打mergeHash()之后：

print Dumper \%hash1, \%sourceHash;

我得到了这个输出：

$VAR1 = {
          'apple' => 10,
          'kiwi' => 20,
          'banana' => 15
        };
$VAR2 = {
          'orange' => 13,
          'banana' => 20,
          'kiwi' => 20,
          'apple' => 22
        };

所以你的代码正在做你想做的事。它只是对另一个哈希执行此操作。您的代码没有任何问题。

Answer 2

PFB 更新的代码具有正确的语法，它也给出了所需的输出：

my %hash1= ();
$hash1{'apple'} = 10;
$hash1{'banana'} = 15;
$hash1{'kiwi'} = 20;

my %sourceHash = ();
$sourceHash{'apple'} = 12;
$sourceHash{'orange'} = 13;
$sourceHash{'banana'} = 5;

mergeHash(\%hash1, \%sourceHash);


sub mergeHash {
    my $param1 = shift;
    my %hash1 = %$param1;
    my $param2 = shift;
    my %hash2 = %$param2;

    foreach my $key (keys %hash1){
        if(exists $hash2{$key}){
            print "coming in here for $hash1->{$key} \n";
            $hash2{$key} = $hash1{$key} + $hash2{$key};
        }
        else{
            $hash2{$key} = $hash1{$key};
        }
    }
    showHash(\%hash2);
}
sub showHash{

    my $param = shift;
    my %param_hash = %$param;


    for my $fruit (keys %param_hash) {
    print "The value of '$fruit' is $param_hash{$fruit}\n";
    }
}