配列を結合(連結)する - Perl

この記事は2007年05月28日に書かれた物です

二つの配列を結合(連結)し、合体させたい。 pushとunshiftはリスト(配列)を渡せるのでそれを利用するのが良い。

サンプル

#!/usr/bin/perl
 
;#
;#配列の結合
;#
 
#----------------------------------#
#配列の準備
#----------------------------------#
my @array_a = (1..5);     #1~5の値を入れる
my @array_b = (a..e);     #a~eの値を入れる
my @array_c = (A..E);     #A~Eの値を入れる
 
#----------------------------------#
#合体
#----------------------------------#
#-- 前に結合 --#
unshift(@array_a, @array_b);    #a,b,c,d,e,1,2,3,4,5
 
#-- 後ろ結合 --#
push(@array_a, @array_c);       #a,b,c,d,e,1,2,3,4,5,A,B,C,D,E
 
#----------------------------------#
#表示
#----------------------------------#
print "$_\n" foreach(@array_a);

実行結果

a
b
c
d
e
1
2
3
4
5
A
B
C
D
E

その他

もしくは次のように代入する手もある。

#-- 準備 --#
@array_a = (1..5);   #1~5の値を入れる
@array_b = (a..e);   #a~eの値を入れる
 
#-- 合体 --#
@array = (@array_a, @array_b);

関連書籍

failed to fetch data: unkown error

Joseph N. Hall, Joshua…
ISBN 4798139815
¥ 4,104

コメント

コメントを入力. Wiki文法が有効です:
S N E​ V Q