Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 関数 - do

doに続くブロック内のコードを実行します。

do ブロック1 ;

ブロック1 : doにより一度以上実行されるブロック

do ブロック1 while( 条件式1 );

ブロック1
doにより一度以上実行されるブロック
条件式1
条件式が真である場合はブロック1をループ

do ブロック1 until( 条件式1 );

ブロック1
doにより一度以上実行されるブロック
条件式1
条件式が真になるまでブロック1をループ

(例1)
do { print "テストブロック\n"; print "一度だけ実行\n"; };

実行結果
テストブロック 一度だけ実行

(例2)
$i = 0; do { print "現在の\$i : $i\n"; $i++; } while($i < 10);

実行結果
現在の$i : 0 現在の$i : 1 現在の$i : 2 現在の$i : 3 現在の$i : 4 現在の$i : 5 現在の$i : 6 現在の$i : 7 現在の$i : 8 現在の$i : 9

(例3)
$i = 0; do { print "現在の\$i : $i\n"; $i++; } until($i > 10);

実行結果
現在の$i : 0 現在の$i : 1 現在の$i : 2 現在の$i : 3 現在の$i : 4 現在の$i : 5 現在の$i : 6 現在の$i : 7 現在の$i : 8 現在の$i : 9 現在の$i : 10