arrays - Perl: 2 つの配列の内容を次々に出力するにはどうすればよいですか?

Question

2つの配列があるとしましょう。

@a1= qw (1, 2, 3);
@a2= qw (a, b, c);

次の方法でこれらの配列から項目を印刷するにはどうすればよいですか:

1 a
2 b
3 c

編集：アイテムの数量も配列の内容も不明であることに注意してください。

Answer 1

これをやってみてください

use Modern::Perl;

my @a1 = qw (1 2 3);
my @a2 = qw (a b c);
say join " ", ($a1[$_], $a2[$_]) for 0..$#a1;

,（使用時は入れないでくださいqw//）

シンプルな古いスタイルを好む場合:

my @a1 = qw (1 2 3);
my @a2 = qw (a b c);
print join(" ", ($a1[$_], $a2[$_])) . "\n" for 0..$#a1;

Answer 2

配列の不明なサイズに対処するには、配列の長さを見つけて、選択したループ構造で次のように出力するだけです。

//pseudocode

print(array1[0] + array2[0]);

配列の長さが等しい限り、そうすることができます。