#!/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番目と５番目の要素

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

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

#!/usr/bin/perl

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

print"@a\n";

#!/usr/bin/perl

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

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

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

#!/usr/bin/perl

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

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

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

#!/usr/bin/perl

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

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

#!/usr/bin/perl

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

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

#!/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";