Perlの目次へ

配列

配列変数を示す記号は@、要素ごとに違う型の値を代入してもかまわない。

arr01.pl

#!/usr/bin/perl

@a=("perl", "cgi", 1, 3e2, 5.6);    #配列は@

print"@a\n";

print"$a[0]\n";         #最初の要素

print"$#a\n";           #最後の添え字

print"@a[2,4]\n";       #3番目と5番目の要素

print"@a[2..4]\n";      #3番目から5番目までの要素

@a[2,3]=@a[3,2];        #3番目と4番目の要素の入れ替え
print"@a\n";

arr015.pl

#!/usr/bin/perl

@a=qw(perl cgi html css);    #配列に文字列を一括代入

print"@a\n";

push、pop演算子

arr02.pl

#!/usr/bin/perl

@a=("perl", "cgi", 1, 3e2, 5.6);    #配列は@

push(@a, "html", "css");       #配列aの最後に付け足す
print"@a\n";

pop(@a);                #配列の最後の要素を削除
print"@a\n";

unshift、shift演算子

arr03.pl

#!/usr/bin/perl

@a=("perl", "cgi", 1, 3e2, 5.6);    #配列は@

unshift(@a, "html", "css");    #配列aの最初に付け足す
print"@a\n";

shift(@a);                     #配列の最初の要素を削除
print"@a\n";

reverse演算子

arr04.pl

#!/usr/bin/perl

@a=("perl", "cgi", 1, 3e2, 5.6);    #配列は@
print"@a\n";

@a=reverse(@a);    #配列aを逆順に並べ替え
print"@a\n";

sort演算子

arr05.pl

#!/usr/bin/perl

@a=("perl", "cgi", 1, 3e2, 5.6);    #配列は@
print"@a\n";

@a=sort(@a);    #ASCIIコード順に並べ替え
print"@a\n";

chop演算子

arr06.pl

#!/usr/bin/perl

@a=("perl", "cgi", "html", "css");    #配列は@
print"@a\n";

chop(@a);    #全ての要素の最後の1文字を削除
print"@a\n";


@a=("perl", "cgi", 1, 3e2, 5.6);    #配列は@
print"@a\n";

chop(@a);    #全ての要素の最後の1文字を削除
print"@a\n";

since 2005/08/02(Tue)

Perlの目次へ

トップページへ

SEO [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送