Perl并行迭代2个数组的方法

Question

我用了

Use List::MoreUtils qw(each_array);
my $it = each_array( @input_dump_arr, @created_dump_arr);
while ( my ($first, $second) = $it->()) {
}

这可以在默认的 perl 配置中工作吗？
一个更广泛的问题是是否有编写“可移植”perl 脚本的指南？我是 Perl 的新手，只是想弄清楚 cpan 是否实际上类似于 boost 库对 c++ 的作用。

Answer 1

它不是一个核心模块(意味着它没有与 perl 捆绑在一起)，但它是一个相对常见的模块。我会毫不犹豫地使用它。

如果你真的很偏执，它可能不可用，假设数组是 同尺寸 ，您可以使用以下内容:

for my $i (0 .. $#array1) {
  my $first  = $array1[$i];
  my $second = $array2[$i];
}

不过好在 each_array() 是用纯 perl 实现的，所以你也可以查看 List/MoreUtils.pm 的源代码并复制粘贴相关的子程序。