ファイル名: ./w/while.cgi

#!/usr/local/bin/perl

#------------------------------------------------------------
$Title = 'while';
$BODY = '<BODY BGCOLOR="#000000" TEXT="#C0C0C0">';
$FONT_R = '<font color="#FF0000">';
$FONT_G = '<font color="#00FF00">';
$FONT_C = '</font>';
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>$Title</TITLE></HEAD>\n";
print "$BODY\n";
print "<blockquote>\n";
#------------------------------------------------------------
print "$FONT_R0から、10までの足し算\n$FONT_C\n";
print "<BR><BR>\n";
while ($a <=10)
{
$gokei = $gokei + $a++;
print "$a回目の合計$gokeiです。<HR NOSHADE SIZE=1 WIDTH=\"300\" ALIGN=LEFT>\n"
}
continue {print "continueなんじゃろ?\n"}
#------------------------------------------------------------
print "<BR><BR>\n";
print "<HR NOSHADE SIZE=2 WIDTH=\"600\">\n";
print "<BR><BR>\n";
#------------------------------------------------------------
print "$FONT_R while (\$a <=20)の、場合に、lastで、合計が150で終わらせる。$FONT_C\n";
print "<BR><BR>\n";
print "$FONT_R なぜか、10までは、表示されない。$FONT_C\n";
print "<BR><BR>\n";
while ($a <=20)
{
$gokei = $gokei + $a++;
if($gokei >150){last;}
print "$a回目の合計$gokeiです。<HR NOSHADE SIZE=1 WIDTH=\"300\" ALIGN=LEFT>\n"
}

#------------------------------------------------------------
print "<BR><BR>\n";
print "<HR NOSHADE SIZE=2 WIDTH=\"600\">\n";
print "<BR><BR>\n";
#------------------------------------------------------------
print "next、continue、ラベルと、やっていたらこんがらがってやめました。<BR>
文字化けしてます(表示)なぜか、おもしろい。\n";
#------------------------------------------------------------
print "</blockquote>\n";
print "</BODY>\n";
print "</HTML>\n";
exit;