arrays - 如何将数组的数组添加到哈希值

Question

我有一个数组 a1 和一个数组数组 a2。

@a1 = [1,2,3,4,5] 

和

@a2 = [ [adf],[bcg],[yet],[gpd],[iop]]

现在我想要一个哈希，其中 a1 是 a2 的键和数组作为值。我该怎么做 ？

Answer 1

这里有几种方法可以做到这一点。你的语法在你的问题中有点偏离，所以我假设我的变量声明是你想要的。

my @a1 = (1,2,3,4,5);
my @a2 = ( ["a", "d", "f"], ["b", "c", "g"], ["y","e","t"], 
           ["g", "p", "d"], ["i", "o", "p"] );
# Thus $a2[0][1] => "d", etc.                                                                                                                                           

#Perl 5.12 and higher you can use "each" on an array
my %a3;
while (my ($a1_index, $a1_value) = each @a1) {
    $a3{$a1_value} = $a2[$a1_index];
}
# Now @{$a3{4}} => ["g", "p", "d"] for example

# Before 5.12 you would have to do something like this:
my %a4;
for my $i (0..$#a1) {
    $a4{$a1[$i]} = $a2[$i];
}
# Now @{$a4{4}} => ["g", "p", "d"]

Answer 2

my @keys = (1,2,3,4,5);
my @vals = ( ["a", "d", "f"], ["b", "c", "g"], ["y","e","t"], 
           ["g", "p", "d"], ["i", "o", "p"] );

my $hash={};

for(my $i = 0; $i < scalar(@keys); $i++){

    $hash->{$keys[$i]}=$vals[$i];
}

#print the resulted hash
use Data::Dumper;print Dumper($hash);

结果如下所示： $VAR1 = { '4' => [ 'g', 'p', 'd' ], '1' => [ 'a', 'd', 'f' ], '3' = > [ 'y', 'e', 't' ], '2' => [ 'b', 'c', 'g' ], '5' => [ 'i', 'o', 'p ' ] };

Perl 哈希是无序的，因此不必担心它们在此处打印的顺序，如果需要，您可以根据数字键对它们进行排序。