如何在Perl中为哈希分配两个数组？

Question

我有两行代码和两个大数组(所以不能把它写成哈希),我想用哈希连接.

例如,$array1[0]成为关键并$array2[0]成为值,依此类推$array1[150],$array2[150].

我有什么想法吗？

Answer 1

您可以在一个作业中完成:

my %hash;
@hash{@array1} = @array2;

这是一个常见的习语.来自切片上的perldoc perldata:

如果你对为什么在哈希切片而不是'%'上使用'@'感到困惑,那就这样想吧.括号的类型(方形或卷曲)决定它是一个数组还是正在查看的哈希.另一方面,数组或散列上的前导符号('$'或'@')表示您是返回单数值(标量值)还是复数值(列表).

当我看到其中一个时,我看到拉链的心理形象......

Answer 2

对于你的一般问题,马丁克莱顿有最好的答案,在Perl 5.12中也有一个有趣的新功能.您可以在阵列上使用每个,以便您可以轻松地遍历并行数组.在您使用它们之前想要操作值时,它非常有用:

 while( my( $index, $value ) = each @array1 ) {
      ...; # maybe do something to $value
      $hash{ $value } = $array2[$index];
      }