• Twitter
• Facebook
• Tumblr
• Email

二つの配列を結合(連結)し、合体させたい。 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

failed to fetch data: unkown error

• Twitter
• Facebook
• Tumblr
• Email