perlで配列の値を新しい別々の配列に分割する方法

How to split array values into to new separate arrays in perl


質問 written by verycuriouscat @2019-05-09 06:23:44Z

: 0 : 0 : 2

私は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";

私が得た結果

separate1 = aaa

separate2 = 111

separate3 = AAA

望ましい結果

separate1 = aaa bbb ccc ddd

separate2 = 111 222 333 444

separate3 = AAA BB CCC DD