Perl - 将两个数组元素连接在一起

Question

我正在寻找将两个数组元素连接在一起的最佳方法：

@array1 = (test1, test2, test3, test4, test5);

@array2 = (answer1, answer2, answer3, answer4, answer5);

我想连接array1＆amp; array2一起形成下面管道分隔的数组元素。最有效的方法是什么？

@array3 = (test1|answer1, test2|answer2, test3|answer3, test4|answer4, test5|answer5);

Answer 1

也许你可以使用这些代码，循环很容易。

my @array1 = qw/test1 test2 test3 test4 test5/;
my @array2 = qw/answer1 answer2 answer3 answer4 answer5/;
my @array3 = map { $array1[$_]."|".$array2[$_] } 0..$#array1;

这假设两个阵列都具有相同的大小。