perl - 哈希合并/连接

Question

这是我的哈希值的转储:%hash1

$VAR1 = {
    abc => {
        123 => [
          'xx',
          'yy',
          'zy'
        ],
        456 => [
          'ab',
          'cd',
          'ef'
        ]
    }
};

第二个:%hash2

$VAR2 = { 
    def => {
        659 => [
            'wx',
            'yg',
            'kl'
        ],
        456 => [
            'as',
            'sd',
            'df'
        ]
    },
    abc => {
        987 => [
            'lk',
            'dm',
            'sd'
        ]
    }
};

现在我想将这两个哈希合并到一个新的哈希中，但是如果一个键是重复的(这里是'abc')，值应该被附加，而不是替换，所以键应该保持唯一，所有的值都应该保留为好。如何在 Perl 中做到这一点？
输出应如下所示:

$VAR1 = {
    def => {
        659 => [
            'wx',
            'yg',
            'kl'
        ],
        456 => [
            'as',
            'sd',
            'df'
        ]
    },
    abc => {
        987 => [
            'lk',
            'dm',
            'sd'
        ],
        123 => [
            'xx',
            'yy',
            'zy'
        ],
        456 => [
            'ab',
            'cd',
            'ef'
        ]
    }
 };

Answer 1

使用 CPAN 模块 Hash::Merge 或 Hash::Merge::Simple .第一个是高度可配置的，第二个非常易于使用。