arrays - 如何在 Perl 中将多个数组传递给 'foreach' 循环？

Question

我想将两个数组中的项目写入一个文件，例如

 @a = ('1', '2', '3')
 @b = ('0.1', '0.2', '0.3')

我想要这样的输出:

1 0.1
2 0.2
3 0.3

在文件中。

我尝试使用两个 foreach 循环，这显然是错误的，

 foreach my $a (@a) {
    foreach my $b (@b) {
        print FP "$a $b \n";
    }
 }

这是错误的。如何将多个数组传递到 Perl 中的 foreach 循环？

Answer 1

如果要并行输出 @a 和 @b 的所有元素，可以循环遍历其中一个的所有索引(数组大小相同，因此哪个并不重要)，并使用它来访问实际元素($a[$i] 和 $b[$i])

foreach my $i (0 .. $#a) {
  print "$a[$i] $b[$i] \n";
}