如何在 Perl 中组合哈希？

Posted 2023-03-24

【中文标题】如何在 Perl 中组合哈希？

【英文标题】：How can I combine hashes in Perl?

【发布时间】：2010-09-25 21:18:20

【问题描述】：

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

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

【参考方案1】：

快速解答 (TL;DR)

%hash1 = (%hash1, %hash2) ＃＃ 要不然 ... @hash1keys %hash2 = 值 %hash2; ## 或带有引用... $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）

【讨论】：

是的，如果没有键冲突，@hash1keys %hash2 = values %hash2;是最快和最短的方式，AFAIK。

你为什么不能做%hash1 = (%hash1, %hash2)

它似乎也适用于引用：$hash_ref1 = ($hash_ref1, $hash_ref2);

这会将$hash_ref1 设置为$hash_ref2，不会合并。你想要$hash_ref1 = %$hash_ref1, %$hash_ref2 ;，我会编辑答案。

【参考方案2】：

查看perlfaq4: How do I merge two hashes。 Perl 文档中已经有很多很好的信息，您可以立即获得，而不必等待其他人回答。 :)

---

在您决定合并两个散列之前，您必须决定如果两个散列包含相同的键，并且您想保留原来的散列，该怎么做。

如果要保留原始散列，请将一个散列 (%hash1) 复制到新散列 (%new_hash)，然后将另一个散列 (%hash2) 中的键添加到新散列中。检查该键是否已存在in %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;

【讨论】：

很高兴链接到 perlfaq 和其他问题中的其他资源

【参考方案3】：

这是一个老问题，但在我的 Google 搜索“perl 合并哈希”中排名很高 - 但它没有提到非常有用的 CPAN 模块 Hash::Merge

【讨论】：

投票最多的答案已更新为包含此内容。

【参考方案4】：

用于哈希引用。您应该使用如下花括号：

$hash_ref1 = %$hash_ref1, %$hash_ref2;

并且不是上面使用括号的建议答案：

$hash_ref1 = ($hash_ref1, $hash_ref2);