Perl - 如何用预先存在的数组的值创建一个数组？

Question

我新的Perl和编程好，所以这里是我的愚蠢的问题：

我想创建存储在两个预先存在的数组值的数组。 例如

我有@制成的元件的ARRAY1：A，B，C

和@数组2制成B，d，E。

我想要@ array3由制成A，B，C，B，D，E。

但是我得到了一个数组，它是一个数组，它本身就是一个数组。

我做：

use strict; use warnings; 

my @array1 = ('A', 'B', 'C'); 
my @array2 = ('B', 'D', 'E'); 
my $length1 = @array1 -1; 
my $length2 = @array2 -1; 

my @merge; 

push @merge, "@array1[0..$length1] @array2[0..$length2]"; 

非常感谢您的任何帮助。

Answer 1

my @array3 = (@array1, @array2); 

在分配(@array1, @array2)，两个阵列的阵列元件将得到展平为列表，并分配给@array3。