Perlでハッシュを組み合わせるにはどうすればよいですか？

両方のハッシュを％hash1に組み合わせる最良の方法は何ですか？％hash2と％hash1には常に一意のキーがあることを常に知っています。可能であれば、1行のコードを使用することもできます。

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

クイックアンサー（TL; DR）

    ％hash1 =（％hash1、％hash2）

    ##またはその他...

    @ hash1 {keys％hash2} =値％hash2;

    ##または参照付き...

    $ hash_ref1 = {％$ hash_ref1、％$ hash_ref2};

概観

• 環境： Perl 5.x
• 問題：ユーザーは2つのハッシュ¹を1つの変数にマージしたい

解決

• 単純な変数には上記の構文を使用します
• 複雑な入れ子の変数にはHash :: Mergeを使用します

落とし穴

• 両方のハッシュに1つ以上の重複するキーが含まれている場合の対処方法
  • （たとえば、Perl-重複するキーを含むハッシュのマージを参照）
  • （たとえば、Perlハッシュを参照してください：重複するキーを処理し、可能なペアを取得する方法）
• 空の値を持つキーと値のペアは、空でない値を持つキーと値のペアを上書きする必要がありますか？
  • そもそも何が空と空でない値を構成するのですか？（例えばundef、ゼロ、空の文字列false、、、偽...）

こちらもご覧ください

• ハッシュのマージに関するPMの投稿
• PMカテゴリーQ＆Aハッシュユニオン
• Perlクックブック5.10。ハッシュのマージ
• websearch：// perlfaq "2つのハッシュをマージ"
• websearch：// perlマージハッシュ
• https://metacpan.org/pod/Hash::Merge

脚注

¹ *（別名連想配列、別名辞書）

perlfaq4を確認してください：2つのハッシュをマージするにはどうすればよいですか。Perlのドキュメントにはすでに多くの優れた情報があり、誰かが答えるのを待つのではなく、すぐにそれを入手できます。:)

2つのハッシュをマージすることを決定する前に、両方のハッシュに同じキーが含まれている場合、および元のハッシュをそのままにしたい場合はどうするかを決定する必要があります。

元のハッシュを保持する場合は、1つのハッシュ（％hash1）を新しいハッシュ（％new_hash）にコピーしてから、もう1つのハッシュ（％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;

これは古い質問ですが、Google検索で「perlマージハッシュ」が高く表示されますが、非常に役立つCPANモジュールHash :: Mergeについては触れられていません。

ハッシュ参照用。次のような中括弧を使用する必要があります。

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

括弧を使用した上記の推奨回答ではありません：

$hash_ref1 = ($hash_ref1, $hash_ref2);