perl - 如何将两个数组映射到一个 Perl 哈希？

Question

我是 perl 的新手。我需要了解如何将一个数组(作为键)映射到另一个数组(作为值)以使用 foreach 循环生成散列:

@one = ("A", "B", "C");
@two = ("a", "b", "c");

我编写了以下代码，但是当我对哈希进行切片时它不起作用？

%hash;
foreach $i (one) {
  print $i, "=>" , $ii = shift @two, "\n"
}

Answer 1

假设我在评论中的问题的答案是"is"，这里有几种方法。

鉴于:

my @one = qw/A B C/;
my @two = qw/1 2 3/;

使用哈希切片:

my %hash;
@hash{@one} = @two;

使用 List::MoreUtils来自 CPAN 的模块:

use List::MoreUtils qw/zip/;
my %hash = zip @one, @two;