如何將一個數組作爲key和其他多個數組作爲hashmap perl中的值？

Question

我有以下陣列，我需要映射@array2和@array3的輸出到密鑰@array1在散列結構。

@array1 = ('a', 'b', 'c'); 
@array2 = (1, 2, 3); 
@array3 = ('j', 'k', 'l'); 

預期輸出：

a => [1, 'j'] 
b => [2, 'k'] 
c => [3, 'l'] 

Answer 1

循環在第一陣列的每個索引和推你想要到目標是什麼。請注意，%hash的值需要列表-參考號。

$ cat ./foo.pl 
#! /usr/bin/perl 

use strict; 
use warnings; 
use Data::Dumper; 

my @array1 = ("a", "b", "c"); 
my @array2 = (1, 2, 3); 
my @array3 = ("j", "k", "l"); 
my %hash; 

for(my $i = 0; $i < scalar(@array1); $i++){ 
     push(@{$hash{$array1[$i]}}, $array2[$i], $array3[$i]); 
} 

print Dumper(\%hash); 

$ ./foo.pl 
$VAR1 = { 
      'c' => [ 
        3, 
        'l' 
       ], 
      'a' => [ 
        1, 
        'j' 
       ], 
      'b' => [ 
        2, 
        'k' 
       ] 
     }; 

注意事項，以供將來參考，這是很重要的，以顯示SO社區，你已經做出了一些努力學習，這解決自己（具體爲向我們展示你已經嘗試了什麼）。很可能，由於您完全沒有這樣做，這個問題將由版主來完成。