小粋空間  -  a cheap joke and a play on words site

Perlで2つの配列を1つの配列に結合する方法

Perlで、2つの配列を1つの配列に結合する方法を紹介します。

１．配列の後に別の配列を結合する

配列の後に別の配列を結合するには、pushを利用します。

次のサンプルでは、配列変数list1の後方に、配列変数list2の内容を結合します。

my @list1 = ( 1, 2, 3 );
my @list2 = ( 4, 5, 6 );
push @list1, @list2;

実行結果

print join(',', @list1); # 1,2,3,4,5,6

２．配列の前に別の配列を結合する

配列の前に別の配列を結合するには、unshiftを利用します。

次のサンプルでは、配列変数list1の前方に、配列変数list2の内容を結合します。

my @list1 = ( 1, 2, 3 );
my @list2 = ( 4, 5, 6 );
unshift @list1, @list2;

実行結果

print join(',', @list1); # 4,5,6,1,2,3

３．2つの配列を結合して新しい配列に代入する

2つの配列を結合して新しい配列に代入するには、次のようにします。

my @list1 = ( 1, 2, 3 );
my @list2 = ( 4, 5, 6 );
my @list3 = ( @list1, @list2 );

実行結果

print join(',', @list3); # 1,2,3,4,5,6