比較一個散列的值與另一個值的值在perl中創建第三個散列

Question

我想要合併hash1和hash2的相同值並創建第三個散列，其中hash3的鍵是hash1的鍵，而hash3的值是hash2的鍵這些相同的值

%hash3 = (
    0 =>3, 
    1 => 2, 
    2 => 1, 
    3 => 0 
); 

Answer 1

reverse%hash2，然後使用map配對從%hash1鍵與曾經被認爲是的%hash2的鍵：

my %reversed = reverse %hash2; 
my %hash3 = map { $_ => $reversed{$hash1{$_}} } keys %hash1; 

%hash3含有s：

{ 
    '1' => '2', 
    '0' => '3', 
    '3' => '0', 
    '2' => '1' 
};