perl - 2 つの配列を並行して繰り返す Perl の方法

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が実際にブーストライブラリがc ++にどのように類似しているかを理解しようとしています.

Answer 1

これはコア モジュールではありません (つまり、perl にバンドルされていません) が、比較的一般的なモジュールです。私はそれを使用することを躊躇しません。

配列が同じサイズであると仮定すると、本当に妄想的な場合は利用できない可能性があります。次のようなものを使用できます。

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

ただし、幸いなことに、each_array() は純粋な perl で実装されているため、List/MoreUtils.pm のソースを表示して、関連するサブルーチンをコピー アンド ペーストすることもできます。