Perl 5 マスター Wiki

ハッシュを上書きじゃなくて、マージしてくれるよ。型によってのマージの仕方を上書きできたりもします。

#!/usr/bin/perl 

use warnings;
use strict;
use Hash::Merge;
use Data::Dumper;

my $a = { a => 1, b => [1,2] , c => { a => 1 } };
my $b = { a => 2, b => [1,3] , c => { a => 2 , b => 2 } };

my $c = Hash::Merge::merge( $a , $b );


warn Dumper $c;

$VAR1 = {
          'c' => {
                   'a' => 1,
                   'b' => 2
                 },
          'a' => 1,
          'b' => [
                   1,
                   2,
                   1,
                   3
                 ]
        };