如何從兩個散列創建單個散列，其中一個散列的值是另一個散列的鍵子集的子集？

Question

我已經創建了一個％hash_1

 'PIOMUX2_UART_10' => 'PIO_M_U_PIO1_0' 
     'PIOMUX_UART_11' => 'PIO_M_U_PIO0_4' 
     'PIOMUX_UART_2' => 'PIO_M_U_PIO23_3' 
     'PIOMUX_UART_0' => 'PIO_M_U_PIO21_0' 

和另一個％hash_2

'PIO_M_U_PIO1_0' => 244 
    'PIO_M_U_PIO0_4' => 567 
    'PIO_M_U_PIO23_3' => 568 
    'PIO_M_U_PIO21_0' => 748 
    'PIO_M_U_PIO23_3' => 099 
    'PIO_M_U_PIO23_3', => 887 

密鑰的hash_1值在hash_2鍵的子集。我只是想知道，有什麼方法可以將hash_1的鍵直接指向hash_2的值，並創建另一個hash_3，它可以具有hash_1的鍵和hash_2的相應匹配值。的%hash_1其在%hash_2鍵，然後做%hash_1鍵的映射%hash_2值

Answer 1

首先找到值，

my %hash_3 = map { $_ => $hash_2{$hash_1{$_}} } 
    grep { exists $hash_2{$hash_1{$_}} } 
    keys %hash_1; 

use Data::Dumper; print Dumper \%hash_3; 

輸出

$VAR1 = { 
     'PIOMUX_UART_0' => 748, 
     'PIOMUX_UART_11' => 567, 
     'PIOMUX2_UART_10' => 244, 
     'PIOMUX_UART_2' => 887 
    }; 

Answer 2

不確定。所有你需要的是一些散列片。 （但請注意，您%hash_2實際上只有四個要素，三個你的鑰匙是相同的。）

use strict; 
use warnings; 

my %hash_1 = (
    PIOMUX2_UART_10 => "PIO_M_U_PIO1_0", 
    PIOMUX_UART_0 => "PIO_M_U_PIO21_0", 
    PIOMUX_UART_11 => "PIO_M_U_PIO0_4", 
    PIOMUX_UART_2 => "PIO_M_U_PIO23_3", 
); 

my %hash_2 = (
    PIO_M_U_PIO1_0 => 244, 
    PIO_M_U_PIO0_4 => 567, 
    PIO_M_U_PIO23_3 => 568, 
    PIO_M_U_PIO21_0 => 748, 
    PIO_M_U_PIO23_3 => '099', 
    PIO_M_U_PIO23_3 => 887, 
); 

my %hash_3; 
@hash_3{keys %hash_1} = @hash_2{values %hash_1}; 

use Data::Dump; 
dd \%hash_3; 

輸出

{ 
    PIOMUX2_UART_10 => 244, 
    PIOMUX_UART_0 => 748, 
    PIOMUX_UART_11 => 567, 
    PIOMUX_UART_2 => 887, 
}