ファイル名: w/array.cgi

#!/usr/local/bin/perl

#------------------------------------------------------------
$Title = 'array';
$BODY = '<BODY BGCOLOR="#000000" TEXT="#C0C0C0">';
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>$Title</TITLE></HEAD>\n";
print "$BODY\n";
print "<blockquote>\n";
@warewan = @john = @ken = @hanako = (1..6);
@G = pop(@warewan);
@H = shift(@warewan);
@gyaku = (4,3,2,1,0,);
@john1 =(a,b,@john,7,8);
($A,$B,$C) = (1,2,3);
$jo = @john1;
($joh)= @john1;
@ken[5] = "ken";
($D,@ken) = @ken;
$ken[2] += 3;
@ken[0,1,2,3,4] = @ken[4,3,2,1,0];
@hantai = @ken[@gyaku];
@sort = sort(@ken);
$E = @ken[$A-1];
@Q =(waeawan);
chop(@Q);

print "\@warewan = \@john = \@ken = \@hanako = (1..6)\n";
print "<BR><BR>\n";
print "\@warewan pop shift  -@warewan\n";
print "<BR><BR>\n";
print "shiftの数 @H\n";
print "<BR><BR>\n";
print "\@john -@john\n";
print "<BR><BR>\n";
print "\@john1 =(a,b,\@john,7,8)pushと shiftの働き-@john1\n";
print "<BR><BR>\n";
print "\$jo 要素数 = \@john1 -$jo\n";
print "<BR><BR>\n";
print "\(\$joh)= \@john1 最初の要素 -$joh\n";
print "<BR><BR>\n";
print "\$john1[0] 最初の要素 -$john1[0]\n";
print "<BR><BR>\n";
print "6番目に、kenを入れ \$Dに 最初の要素を渡し、3番目に、3プラス<BR>\n";
print "reverseと同じ働きをして、sortで、並び替えた。無駄があるけど。\n";
print "<BR><BR>\n";
print "\@ken - @ken\n";
print "<BR><BR>\n";
print "\$E = \@ken[\$A-1] 最初の要素 -$E\n";
print "<BR><BR>\n";
print "\@hantai - @hantai\n";
print "<BR><BR>\n";
print "\@sort - @sort\n";
print "<BR><BR>\n";
print "\@Q chop -@Q \n";
print "<BR><BR>\n";


print "まとめが、悪い。時間切れ!\n";
print "演算子より、配列の説明が、もう少し足りない。\n";
print "<BR><BR>\n";
print "\$の前に、スペース入れるとは 違う意味になる。なんだっけ?\n";


print "</blockquote>\n";
print "</BODY>\n";
print "</HTML>\n";
exit;