如何在perl中合并两个数组,每个数组交替的值

假设我有2个数组,如下所述

@a1["Vinay",Raj,harry];
@b1["dude","rock"];

合并后,我想有这样的结果

[
    Vinay
    dude
    Vinay
    rock
    Raj
    dude
    Raj
    rock
    harry
    dude
    harry
    rock
]

基本上我想将array1的每个索引值合并到array2的所有索引值

添加到上述问题我有另一个查询

对于上面的同样的问题,如何在特定的数组索引中合并2个数组,例如我有两个每个160个元素的数组,现在我想在集合中的每个第五个元素合并数组,是可能的吗？

谢谢,
维奈

解决方法

这是一种方法.可能不是最好的perl语法. double for循环意味着您将推送两个阵列的每个组合到合并的数组中.我试图设置它,以便结果是按照你在问题中指定的顺序.

my @merged;

for my $a ( @a1 ) {
  for my $b ( @b1 ) {
    push( @merged,($a,$b) );
  }
}