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

(例2)
$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


Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.