perlで多重ハッシュをマージする方法は何ですか？

Perlでは、merge関数を使用して多階層のハッシュをマージできます。merge関数は、2つ以上のハッシュ間で再帰的にマージ操作を行うことができます。以下に例を示します。

use Data::Merge qw(merge);
my %hash1 = (
'key1' => {
'subkey1' => 'value1',
'subkey2' => {
'subsubkey1' => 'value2',
},
},
);
my %hash2 = (
'key1' => {
'subkey2' => {
'subsubkey2' => 'value3',
},
'subkey3' => 'value4',
},
);
my %merged_hash = %{ merge(\%hash1, \%hash2) };
# 打印合并后的哈希
use Data::Dumper;
print Dumper(\%merged_hash);

上記のコードでは、まず Data::Merge モジュールから marge 関数を読み込みます。次に、2 つの連想配列 %hash1、%hash2 を作成します。以降の marge 関数を使用して 2 つの連想配列を結合し、その結果を %merged_hash に格納します。最後に、Data::Dumper モジュールの Dumper 関数を使用して、結合された連想配列を出力します。

上記プログラムを実行すると次の出力が得られます。

$VAR1 = {
'key1' => {
'subkey3' => 'value4',
'subkey2' => {
'subsubkey2' => 'value3',
'subsubkey1' => 'value2'
},
'subkey1' => 'value1'
}
};

二つの多重点ハッシュが、新しい多重点ハッシュに正常に結合されたことが確認されました。