在Perl中合并数组

由于Perl中的数组只是逗号分隔的值序列，因此可以将它们组合在一起，如下所示-

示例

#!/usr/bin/perl
@numbers = (1,3,(4,5,6));
print "numbers = @numbers\n";

输出结果

这将产生以下结果-

numbers = 1 3 4 5 6

嵌入式数组仅成为主数组的一部分，如下所示-

示例

#!/usr/bin/perl
@odd = (1,3,5);
@even = (2, 4, 6);
@numbers = (@odd, @even);
print "numbers = @numbers\n";

输出结果

这将产生以下结果-

numbers = 1 3 5 2 4 6