簡介
把兩個任意深度的hash合并成一個。
使用方式如下：
use Hash::Merge qw( merge );
my %a = (
'foo' => 1,
'bar' => [ qw( a b e ) ],
'querty' => { 'bob' => 'alice' },
);
my %b = (
'foo' => 2,
'bar' => [ qw(c d) ],
'querty' => { 'ted' => 'margeret' },
);
my %c = %{ merge( \%a, \%b ) };
Hash::Merge::set_behavior( 'RIGHT_PRECEDENT' );
# This is the same as above
Hash::Merge::specify_behavior(
{
'SCALAR' => {
'SCALAR' => sub { $_[1] },
'ARRAY' => sub { [ $_[0], @{$_[1]} ] },
'HASH' => sub { $_[1] },
},
'ARRAY => {
'SCALAR' => sub { $_[1] },
'ARRAY' => sub { [ @{$_[0]}, @{$_[1]} ] },
'HASH' => sub { $_[1] },
},
'HASH' => {
'SCALAR' => sub { $_[1] },
'ARRAY' => sub { [ values %{$_[0]}, @{$_[1]} ] },
'HASH' => sub { Hash::Merge::_merge_hashes( $_[0], $_[1] ) },
},
},
'My Behavior',
);
# Also there is OO interface.
my $merge = Hash::Merge->new( 'LEFT_PRECEDENT' );
my %c = %{ $merge->merge( \%a, \%b ) };
# All behavioral changes (e.g. $merge->set_behavior(...)), called on an object remain specific to that object
# The legacy "Global Setting" behavior is respected only when new called as a non-OO function.
詳情
在任何層級，都只從一個hash結構合并無沖突的鍵值對到另一個hash結構，如果遇到沖突的結構則會根據特定的配置進行處理。因為hash結構是可以深度嵌套的，所以任何層級的hash結構都會被使用同樣的方法進行遞歸的合并。
注：自引用的hash，或是嵌套引用的hash都無法被正確的處理。
在hash結構中的值，會被當成hashref、arrayref或scalar來處理。默認情況下，在進行合并之前，會先使用Clone模塊對數據進行“克隆”得到一個副本，然后對數據的副本進行合并操作。當然了，如果有必要我們可以改變這種默認行為，使用原始數據進行合并操作。（參數set_clone_behavior方法）
由于在很多時候，即使hash的鍵值產生了沖突用戶也想要進行正解的合并；Hash::Merge為用戶提供了幾常用的處理方式，并且也預留了供用戶自己的擴展的接口。詳情如下：
Left Precedence（左值優先）
這是默認行為。
在這種配置下，綁定在左值上的hash永遠不會丟失。所有正常（沒有沖突）的右值都會被合并到左值上。
my $merge = Hash::Merge->new();
my $merge = Hash::Merge->new('LEFT_PRECEDENT');
$merge->set_set_behavior('LEFT_PRECEDENT')
Hash::Merge::set_set_behavior('LEFT_PRECEDENT')
Right Precedence（右值優先）
和“左值優先”一樣，只是這里是右值上的hash永遠不會丟失，并且所有正常（沒有沖突）的左值都會被合并到右值上。
my $merge = Hash::Merge->new('RIGHT_PRECEDENT');
$merge->set_set_behavior('RIGHT_PRECEDENT')
Hash::Merge::set_set_behavior('RIGHT_PRECEDENT')
Storage Precedence（存儲優先）
如果沖突的鍵有兩個不同類型的值，則更“大”的類型的會被保留下來。array比scalar更“大”，hash比其他其他類型都“大”。這時，較“小”的類型會嘗試合并到較大的類型中，如果無法合并，較“小”類型的數據會被丟棄。
my $merge = Hash::Merge->new('STORAGE_PRECEDENT');
$merge->set_set_behavior('STORAGE_PRECEDENT')
Hash::Merge::set_set_behavior('STORAGE_PRECEDENT')
Retainment Precedence（Retainment 優先）
在這種行為下，不會有任何值丟失。scalar會被加入到數組中，scalar和array都可以填充到hash中。
my $merge = Hash::Merge->new('RETAINMENT_PRECEDENT');
$merge->set_set_behavior('RETAINMENT_PRECEDENT')
Hash::Merge::set_set_behavior('RETAINMENT_PRECEDENT')
方法說明
merge(<hashref>,<hashref)
使用特定的規則把兩個hash合并成一個新的hash，并返回。
_hashify( <scalar>|<arrayref> ) -- INTERNAL FUNCTION
返回一個從 scalar 和 array 創建的hash；為每個scalar或array中的每一個元素創建一個鍵值對，鍵和值都是它本身。
_hashify(3) ## {3=>3}
_hashify([2,3]) ## {2=>2,3=>3}
_merge_hashes( <hashref>, <hashref> ) -- INTERNAL FUNCTION
實際上是針對每個 key 的 value 重復調用 merge 方法。
sub _merge_hashes {
my $self = &_get_obj; # '&' + no args modifies current @_
my ( $left, $right ) = ( shift, shift );
if ( ref $left ne 'HASH' || ref $right ne 'HASH' ) {
carp 'Arguments for _merge_hashes must be hash references';
return;
}
my %newhash;
foreach my $leftkey ( keys %$left ) {
if ( exists $right->{$leftkey} ) {
$newhash{$leftkey} = $self->merge( $left->{$leftkey}, $right->{$leftkey} );
}
else {
$newhash{$leftkey} = $self->{clone} ? $self->_my_clone( $left->{$leftkey} ) : $left->{$leftkey};
}
}
foreach my $rightkey ( keys %$right ) {
if ( !exists $left->{$rightkey} ) {
$newhash{$rightkey} = $self->{clone} ? $self->_my_clone( $right->{$rightkey} ) : $right->{$rightkey};
}
}
return \%newhash;
}
set_clone_behavior( <scalar> )
在合并之前，數據是否被復制。如果是 true ，則在合并前會復制原始數據得到副本，并對副本進行合并。如果是 false，則直接對原始數據進行合并。默認情況下是 true。
get_clone_behavior( )
返回當前的 復制 行為的配置。
set_behavior( <scalar> )
指定具體的 合并 行為。參數 scalar 必須是已經定義的值，如：LEFT_PRECEDENT， RIGHT_PRECEDENT，STORAGE_PRECEDENT，RETAINMENT_PRECEDENT
get_behavior( )
返回當前正在被Hash::Merge使用的 行為 配置。
specify_behavior( <hashref>, [<name>] )
為 Hash::Merge 指定一個自定義的合并行為。hashref 必須定義3個鍵(SCALAR，ARRAY，HASH)。其中每個鍵的值同樣是一個包含三個鍵(SCALAR，ARRAY，HASH)的hash，不僅如此，并且內層hashref每個鍵的值都必須是一個 coderefs 。這些 coderefs 被調用時會傳兩個參數（左值和右值），它的功能就是合并這兩個值，并返回一個scalar，arrayref或hashref。如果有必要,可以使用函數_hashify和_merge_hashes作為這些輔助函數。
例如,你想添加左值標量到右值的數組中,你可以有你的行為規范包括:
%spec = ( ...SCALAR => { ARRAY => sub { [ $_[0], @$_[1] ] }, ... } } );
內置行為
下面這些是每個內部行為在各種情況下如何工作的說明，其中$a是左值，$b是右值。
LEFT TYPE RIGHT TYPE LEFT_PRECEDENT RIGHT_PRECEDENT
SCALAR SCALAR $a $b
SCALAR ARRAY $a ( $a, @$b )
SCALAR HASH $a %$b
ARRAY SCALAR ( @$a, $b ) $b
ARRAY ARRAY ( @$a, @$b ) ( @$a, @$b )
ARRAY HASH ( @$a, values %$b ) %$b
HASH SCALAR %$a $b
HASH ARRAY %$a ( values %$a, @$b )
HASH HASH merge( %$a, %$b ) merge( %$a, %$b )
LEFT TYPE RIGHT TYPE STORAGE_PRECEDENT RETAINMENT_PRECEDENT
SCALAR SCALAR $a ( $a ,$b )
SCALAR ARRAY ( $a, @$b ) ( $a, @$b )
SCALAR HASH %$b merge( hashify( $a ), %$b )
ARRAY SCALAR ( @$a, $b ) ( @$a, $b )
ARRAY ARRAY ( @$a, @$b ) ( @$a, @$b )
ARRAY HASH %$b merge( hashify( @$a ), %$b )
HASH SCALAR %$a merge( %$a, hashify( $b ) )
HASH ARRAY %$a merge( %$a, hashify( @$b ) )
HASH HASH merge( %$a, %$b ) merge( %$a, %$b )
注：merger 表示調用了 _merge_hashes, hashify 表示調用了 _hashify。
示例
稍候更新，請關注。
