perl - 如何在 Perl 中组合哈希值？

Question

将两个哈希合并到 %hash1 中的最佳方法是什么？我一直知道 %hash2 和 %hash1 总是有唯一的键。如果可能的话，我也更喜欢一行代码。

$hash1{'1'} = 'red';
$hash1{'2'} = 'blue';
$hash2{'3'} = 'green';
$hash2{'4'} = 'yellow';

Answer 1

快速回答(TL；DR)

    %hash1 = (%hash1, %hash2)

    ## or else ...

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

    ## or with references ...

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

概述

• 上下文:Perl 5.x
• 问题:用户希望将两个哈希值¹合并为一个变量

解决方案

• 对简单变量使用上面的语法
• 对复杂的嵌套变量使用 Hash::Merge

陷阱

• 当两个哈希都包含一个或多个重复键时该怎么办
  • (参见例如 Perl - Merge hash containing duplicate keys )
  • (参见例如 Perl hashes: how to deal with duplicate keys and get possible pair )
• 具有空值的键值对是否应该覆盖具有非空值的键值对？
  • 首先什么构​​成了空值和非空值？ (例如，undef、零、空字符串、false、falsy ...)

另请参阅

• PM post on merging hashes
• PM Categorical Q&A hash union
• Perl Cookbook 5.10. Merging Hashes
• websearch://perlfaq“合并两个哈希值”
• websearch://perl 合并哈希
• https://metacpan.org/pod/Hash::Merge

<小时/>

脚注

¹ *(又名 associative-array 、又名 dictionary )