如何在Perl中组合哈希？

4 回答

• 14

  快速解答（TL; DR）

  %hash1 = (%hash1, %hash2)
  
      ## or else ...
  
      @hash1{keys %hash2} = values %hash2;
  
      ## or with references ...
  
      $hash_ref1 = { %$hash_ref1, %$hash_ref2 };
  

  概述

  • Context: Perl 5.x

  • Problem: 用户希望将两个哈希1合并为一个变量

  解决方案

  • 使用上面的语法来表示简单变量

  • 对复杂的嵌套变量使用Hash :: Merge

  陷阱

  • 当两个哈希包含一个或多个重复键时，该怎么办？

  • 具有空值的键值对是否会覆盖具有非空值的键值对？

  • 首先是什么构成空的非空值？ （例如 undef ，零，空字符串， false ，falsy ......）

  • （注意：原始问题排除了这种情况，但这是一个重要的考虑因素）

  另见

  • PM post on merging hashes

  • PM Categorical Q&A hash union

  • Perl Cookbook 5.10. Merging Hashes

  • websearch：// perlfaq "merge two hashes"

  • websearch：// perl合并哈希

  • https://metacpan.org/pod/Hash::Merge

  ---

  脚注

  1 *（又名associative-array，又名dictionary）

  回复于 2024-05-10T02:50:50+08:00
• 38

  看看perlfaq4: How do I merge two hashes . Perl文档中已经有很多好的信息，您可以立即使用它，而不是等待其他人回答它 . :)

  ---

  在决定合并两个哈希值之前，如果两个哈希值都包含相同的键并且您希望保留原始哈希值，则必须决定该怎么做 .

  如果要保留原始哈希值，请将一个哈希值（％hash1）复制到新哈希值（％new_hash），然后将其他哈希值中的键（％hash2）添加到新哈希值 . 检查密钥是否已存在于％new_hash中让您有机会决定如何处理重复项：

  my %new_hash = %hash1; # make a copy; leave %hash1 alone
  
  foreach my $key2 ( keys %hash2 )
      {
      if( exists $new_hash{$key2} )
          {
          warn "Key [$key2] is in both hashes!";
          # handle the duplicate (perhaps only warning)
          ...
          next;
          }
      else
          {
          $new_hash{$key2} = $hash2{$key2};
          }
      }
  

  如果您不想创建新哈希，您仍然可以使用此循环技术;只需将％new_hash更改为％hash1 .

  foreach my $key2 ( keys %hash2 )
      {
      if( exists $hash1{$key2} )
          {
          warn "Key [$key2] is in both hashes!";
          # handle the duplicate (perhaps only warning)
          ...
          next;
          }
      else
          {
          $hash1{$key2} = $hash2{$key2};
          }
      }
  

  如果您不关心一个哈希值会覆盖另一个哈希值中的键和值，您可以使用哈希切片将一个哈希值添加到另一个哈希值 . 在这种情况下，％hash2中的值在它们具有共同键时会替换％hash1中的值：

  @hash1{ keys %hash2 } = values %hash2;
  

  回复于 2024-05-10T02:50:50+08:00
• 153

  这是一个老问题，但在我的谷歌搜索中出现了很高的'perl merge hashes' - 但它没有提到非常有用的CPAN模块Hash::Merge

  回复于 2024-05-10T02:50:50+08:00
• 5

  对于哈希引用 . 您应该使用如下的花括号：

  $hash_ref1 = {%$hash_ref1, %$hash_ref2};
  

  和 not 上面建议的答案使用括号：

  $hash_ref1 = ($hash_ref1, $hash_ref2);
  

  回复于 2024-05-10T02:50:50+08:00