配列変数を示す記号は@、要素ごとに違う型の値を代入してもかまわない。
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";
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";
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";
arr04.pl
#!/usr/bin/perl @a=("perl", "cgi", 1, 3e2, 5.6); #配列は@ print"@a\n"; @a=reverse(@a); #配列aを逆順に並べ替え print"@a\n";
arr05.pl
#!/usr/bin/perl @a=("perl", "cgi", 1, 3e2, 5.6); #配列は@ print"@a\n"; @a=sort(@a); #ASCIIコード順に並べ替え print"@a\n";
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";
SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||