小编ver*_*cat的帖子

如何在Perl中将数组值拆分为新的单独数组？

我是学习Perl的初学者。我在这里尝试做的是拆分数组@value并将其插入新数组。我的问题是，我不完全知道如何使我的代码循环运行并获得所需的结果。

是否可以使用此方法获得所需的结果，或者是否有其他替代方法/方法来获得相同的结果？

我的代码如下：

my @separated = ();
my @separated1 = ();
my @separated2 = ();
my @separated3 = ();
my $counter = 0;
my @values = "aaa 111 AAA bbb 222 BBB ccc 333 CCC ddd 444 DDD";

foreach (@values) {
my @separated = split(' ', $_);
push @separated1, $separated[0];
push @separated2, $separated[1];
push @separated3, $separated[2];
}
$counter++

print "separated1 = @separated1\n";
print "separated2 = @separated2\n";
print "separated3 = @separated3\n";

Run Code Online (Sandbox Code Playgroud)

我得到的结果；