結合2+「深」（多維）散列在Perl

Question

有一個問題，解釋正是我想在這裏：how to merge 2 deep hashes in perl

然而，答案似乎有不爲我工作（建議使用Merge模塊）。

我有兩個哈希值，像這樣：

$VAR1 = { 
      '57494' => { 
         'name' => 'John Smith', 
         'age' => '9', 
         'height' => '120' 
        }, 
      '57495' => { 
         'name' => 'Amy Pond', 
         'age' => '17', 
         'height' => '168' 
        } 
     } 
}; 
$VAR1 = { 
      '57494' => { 
         'name_address' => 'Peter Smith', 
         'address' => '5 Cambridge Road', 
         'post_code' => 'CR5 0FS' 
        } 
     } 
}; 

如果我使用Hash::Merge或%c = {%a,%b}格式每次都是這樣，我得到：

$VAR1 = '57494'; 
$VAR2 = { 
      'name_address' => 'Peter Smith', 
      'address' => '5 Cambridge Road', 
      'post_code' => 'CR5 0FS' 
     }; 

（因此，它基本上與第二改寫第一數據並且弄亂了鍵）當我想要時：

$VAR1 = { 
      '57494' => { 
         'name' => 'John Smith', 
         'age' => '9', 
         'height' => '120' 
         'name_address' => 'Peter Smith', 
         'address' => '5 Cambridge Road', 
         'post_code' => 'CR5 0FS' 
        }, 
      '57495' => { 
         'name' => 'Amy Pond', 
         'age' => '17', 
         'height' => '168' 
        } 
     } 
}; 

因此，當密鑰相同時，數據會合並在一起，否則新密鑰將被添加到結尾。我希望這是有道理的。也許我使用Merge錯誤地做了一些事情，或者需要'手動'將它們添加到循環中，但是我花了太多時間思考它，無論如何！

編輯：我如何使用合併，看看我在做一些愚蠢的：

我：

use Hash::Merge qw(merge); 

...hash data above as %hash1 and %hash2... 

my %combined_hash = %{ merge(%hash1,%hash2) }; 
print Dumper(%combined_hash); 

Answer 1

如果我用引用來做，它就像一個魅力。

use strict; use warnings; 
use Data::Dumper; 
use Hash::Merge qw(merge); 
my $h1 = { 
    '57494' => { 
    'name' => 'John Smith', 
    'age' => '9', 
    'height' => '120' 
    }, 
    '57495' => { 
    'name' => 'Amy Pond', 
    'age' => '17', 
    'height' => '168' 
    } 
}; 

my $h2 = { 
    '57494' => { 
    'name_address' => 'Peter Smith', 
    'address'  => '5 Cambridge Road', 
    'post_code' => 'CR5 0FS' 
    } 
}; 

my $h3 = merge($h1, $h2); 
print Dumper $h3; 

輸出：

$VAR1 = { 
     '57495' => { 
        'name' => 'Amy Pond', 
        'age' => '17', 
        'height' => '168' 
       }, 
     '57494' => { 
        'name_address' => 'Peter Smith', 
        'name' => 'John Smith', 
        'post_code' => 'CR5 0FS', 
        'address' => '5 Cambridge Road', 
        'height' => '120', 
        'age' => '9' 
       } 
    }; 

但是，如果我用哈希散列而不是裁判做到這一點，它不：

my %hash1 = (
    '57494' => { 
    'name' => 'John Smith', 
    'age' => '9', 
    'height' => '120' 
    }, 
    '57495' => { 
    'name' => 'Amy Pond', 
    'age' => '17', 
    'height' => '168' 
    } 
); 

my %hash2 = (
    '57494' => { 
    'name_address' => 'Peter Smith', 
    'address'  => '5 Cambridge Road', 
    'post_code' => 'CR5 0FS' 
    } 
); 

my %h3 = merge(%hash1, %hash2); 
print Dumper \%h3; 

__END__ 
$VAR1 = { 
    '57495' => undef 
}; 

這是因爲merge從Hash::Merge能只有參考，但你傳遞它的哈希值。另外，您需要在標量上下文中調用它。

嘗試它像這樣：

#        +--------+--- references 
# ,-- SCALAR context  |  | 
my $combined_hash = %{ merge(\%hash1, \%hash2) }; 
print Dumper($combined_hash); 

Answer 2

for my $key (keys %fromhash) { 
    if(not exists $tohash{$key}) { 
     $tohash{$key} = {}; 
    } 
    for my $subkey (keys %{$fromhash{$key}}) { 
     ${$tohash{$key}}{$subkey} = ${$fromhash{$key}}{$subkey}; 
    } 
} 

隨着這取決於我的最後的咖啡是否是任何或多或少牙套好。

的Python絕對是這種事情更舒適，因爲它不會讓你想引用：

for key in fromdict: 
    if key not in todict: 
     todict[key] = {} 
    todict[key] = dict(fromdict[key].items() + todict[key].items()) 

或者，如果todict是defaultdict（創建上閱讀以及分配鍵）：

for key in fromdict: 
    todict[key] = dict(dict(fromdict[key]).items() + dict(todict[key]).items())