do...while/do...unti（ループ）

whileやuntilと同じように条件を満足している間、プログラムを繰り返し実行します。
しかしwhileやuntilは、ループに入る直前に条件判定を行うのに対して、doループでは、ループの出口で条件判定を行います。

＜do...while構文＞

do{
プログラムブロック（条件式がtrueの間、繰り返し実行される）
}while(条件式)

＜do...until構文＞

do{
プログラムブロック（条件式がfalseの間、繰り返し実行される）
}until(条件式)

行番号	ＣＧＩプログラム	解　　　説
1	#!/usr/local/bin/perl5	１行目は必ずPerlプログラムのある場所を記入
2	#while/untilの使い方	#の右側の文字列はコメント
3	print "Content-type: text/html\n\n";	print文でブラウザへタグ文字列を送っています
4	print "<HTML>\n";
5	print "<HEAD>\n";
6	print "<TITLE>do...while/do...unti（ループ）</TITLE>\n";
7	print "</HEAD>\n";
8	print "<BODY>\n";
9	$cnt=0;	$cntを0で初期化
10	do{	doループの開始
11	$cnt++;	$cntを1アップ
12	print "$cnt<BR>\n";	$cntを表示
13	}(10<$cnt);	条件判定
14	print "</BODY>\n";
15	print "</HTML>\n";