合并数组以在perl中创建新数组

发布时间：2020-12-16 06:26:51 所属栏目：大数据来源：网络整理

导读：将两个数组(逐列)合并到perl中的新复合数组中的方法是什么？ @数组1 carscootertruck @数组2 fourtwosix 我尝试使用以下内容： my @merged = (@array1,@array2); print @merged; 但它将两个数组合并在一列中,如下所示： carscootertruckfourtwosix 但我想要

将两个数组(逐列)合并到perl中的新复合数组中的方法是什么？

@数组1

car
scooter
truck

@数组2

four
two
six

我尝试使用以下内容：

my @merged = (@array1,@array2); print @merged;

但它将两个数组合并在一列中,如下所示：

car
scooter
truck
four
two
six

但我想要的是如下：

@merged[0] @merged[1] 
car             four
scooter         two
truck           six

解决方法

在Perl中,如果你正在列出列表中的数组,它将自动展平为列表.

my @array = (@ar1,@ar2);

如果要存储为数组,则应该对数组进行引用,并将引用存储到另一个数组中

my @array = (@ar1,@ar2);

现在@array引用了@ ar1和@ ar2.

然后使用相应的数据类型取消引用引用

在你的情况下

print @{$array[0]};

最后,您可以将以下内容用于您的案例

use warnings;
use strict;

my @array1 = qw(car scooter truck);
my @array2 = qw(four five six);

my @merged = (@array1,@array2); #referencing the array1 and array2

foreach my $i (0..$#{$merged[0]}) 
{
    # getting the last index value using $#{$merged[0]}

    printf ("%-10s%-10sn",$merged[0][$i],$merged[1][$i]);


}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!