Perl的合併哈希

Question

是否可以合併兩個哈希值，像這樣：

%one = { 
    name => 'a', 
    address => 'b' 
}; 

%two = { 
    testval => 'hello', 
    newval => 'bye'   
}; 

$one{location} = %two; 

所以最終散列看起來是這樣的：

%one = { 
    name => 'a', 
    address => 'b', 
    location => { 
     testval => 'hello', 
     newval => 'bye' 
    } 
} 

我有一個期待，但不能確定這是否能沒有for循環完成。謝謝:)

Answer 1

由於散列元素的值是標量，所以不能在散列中存儲散列，但可以將引用存儲到散列中。 （同去的存儲陣列和存儲到數組。）

my %one = (
    name => 'a', 
    address => 'b', 
); 

my %two = (
    testval => 'hello', 
    newval => 'bye',  
); 

$one{location} = \%two; 

相同

my %one = (
    name => 'a', 
    address => 'b', 
    location => { 
     testval => 'hello', 
     newval => 'bye', 
    }, 
); 

Answer 2

如果使用

$one{location} = \%two 

那麼你的哈希將包含一個參考到哈希%two，所以如果你修改它像$one{location}{newval} = 'goodbye'然後%two也將被改變。

如果你想在%two數據的單獨副本那麼你需要寫

$one{location} = { %two } 

之後的%one內容是獨立的%two，可以單獨修改。