cgi009 「繰り返し　while文」（04/11/29 Mon）

前回の「for」とほとんど同じですが、少し形が違うこっちも結構使われます。

☆　繰り返し　while　☆

#!/usr/local/bin/perl
$test = 1;
while($test <= 100){
$test++;
}
print "Content-type: text/html\n\n";
print $test;
exit;

「$testが100以下の間$testを1ずつ加える」をやってみました。

3行目のwhileですが、

while( 条件 ){ やること }

で、条件が成立している間、やることを実行します。

今回は、$testに最初1を代入し、

「その$testの値（最初は1）が100以下の間、$testに1を加える」となります。

で、そのうち$testが、99,100,101となり、101になると、条件が成立しなくなるので、

whileループから脱出し、下のprint・・・が実行されるのです。

ちなみに、条件が成立しっぱなしだと、永遠にぐるぐるループから

脱出できなくなります。注意。

♪　結果表示　♪

101

★　Top　★