Perl do … whileループ

ループの上部でループ条件をテストする for および while ループとは異なり、 do … while ループはループの下部でその状態をチェックします。

*do ... while* ループはwhileループに似ていますが、do ... whileループは少なくとも1回実行されることが保証されている点が異なります。

構文

Perlの do … while ループの構文は-

do {
   statement(s);
}while( condition );

条件式はループの最後に現れるため、条件がテストされる前にループ内のステートメントが1回実行されることに注意してください。条件が真の場合、制御のフローはジャンプして戻り、ループ内のステートメントが再度実行されます。このプロセスは、指定された条件が偽になるまで繰り返されます。

数値0、文字列 '0’および ""、空のリスト（）、およびundefはすべてブールコンテキストで false であり、他のすべての値は true です。 ！*または *not による真の値の否定は、特別な偽の値を返します。

#!/usr/local/bin/perl

$a = 10;

# do...while loop execution
do{
   printf "Value of a: $a\n";
   $a = $a + 1;
}while( $a < 20 );

上記のコードが実行されると、次の結果が生成されます-

Value of a: 10
Value of a: 11
Value of a: 12
Value of a: 13
Value of a: 14
Value of a: 15
Value of a: 16
Value of a: 17
Value of a: 18
Value of a: 19