比较一个散列的值与另一个值的值在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' 
};