Perl：将哈希与包含相同密钥的密钥组合在一起

Question

我正在尝试在 perl 中合并这些哈希图，但当密钥相同时无法弄清楚如何去做。所需的输入是 VAR1 和 VAR2，并且还提到了输出。

输入：

my $VAR1 = { 'p'=> { 'a' => 2,
                     'b' => 3}};


my $VAR2 = { 'p'=> { 'c' => 4,
                     'd' => 7}};

期望的输出：

{'p'=> { 
        'a' => 2,
        'b' => 3,
        'c' => 4,
        'd' => 7}};

Answer 1

说你有

my %h1 = ( a => 2, b => 3 );
my %h2 = ( c => 4, d => 7 );

要将它们组合成第三个哈希，您可以使用

my %h = ( %h1, %h2 );

好像你已经完成了

my %h = ( a => 2, b => 3, c => 4, d => 7 );

任何共同的键都将从列表后面的哈希中获取。

---

在您的情况下，您有匿名哈希。因此，在我们使用%NAME 的地方，我们将使用%BLOCK，其中块返回对我们要使用的哈希的引用。这给了我们以下信息：

my %h_inner = (
   %{ $VAR1->{p} },
   %{ $VAR2->{p} },
);

这也可以写成：^[1]

my %h_inner = (
   $VAR1->{p}->%*,
   $VAR2->{p}->%*,
);

最后，您还希望使用以p 为键的单个元素来第二个新哈希，其值是对第一个新哈希的引用。

my %h_outer = ( p => \%h_inner );

---

所以，大家一起，你想要

my %h_inner = (
   %{ $VAR1->{p} },
   %{ $VAR2->{p} },
);

my %h_outer = ( p => \%h_inner );

我们也可以使用匿名哈希构造函数 ({})。

my %h_outer = (
   p => {
      %{ $VAR1->{p} },
      %{ $VAR2->{p} },
   },
};

文档：

• perlreftut
• perllol

---

1. 检查版本兼容性here。