４．７ next,last,redo

強制的にループをやり直したり、抜けたりします。

next 強制的にループの先頭に戻す
last 強制的にループから抜ける
redo ループブロックの先頭に戻る
next,lastはループから抜けるが、redoは抜けずにループブロックの先頭から実行する

配列の要素を先頭から順番に変数に代入する
注意：代入した変数の内容を変更すると配列要素も変更される

行番号 ＣＧＩプログラム 解　　　説
1 #!/usr/local/bin/perl5 １行目は必ずPerlプログラムのある場所を記入
2 #next,last,redoの使い方 #の右側の文字列はコメント
3 print "Content-type: text/html\n\n"; print文でブラウザへタグ文字列を送っています
4 print "<HTML>\n";
5 print "<HEAD>\n";
6 print "<TITLE>next,last,redo</TITLE>\n";
7 print "</HEAD>\n";
8 print "<BODY>\n";
9 for($cnt=0;$cnt<10;$cnt++){
10     if(5==$cnt){ ループから抜ける
11         ;
12     }
13 }
14 for($cnt1=0,$cnt2=0;$cnt1<10;$cnt1++){
15     print "cnt1=$cnt1&nbsp;&nbsp;cnt2=$cnt2<BR>\n"; cnt1が6以上にならない事に着目
16     if(5==$cnt1){
17         $cnt2++;
17         if(5 == $cnt2){
18             last;
19         }
20         else{
21             redo;
22         }
23     }
24 }
25 print "</BODY>\n";
26 print "</HTML>\n";

戻る　次へ