Perl 的 do...while 循环

与在循环开头测试循环条件的 for 和 while 循环不同，do...while 循环会在循环的底部检查其条件。

do...while 循环与 while 循环类似，但 do...while 循环保证至少执行一次。

语法

Perl 中的 do...while 循环的语法如下 −

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

需要注意的是，条件表达式出现在循环的末尾，因此循环中的语句会在测试条件之前执行一次。如果条件为真，则控制流会跳回到 do，并且循环中的语句会再次执行。此过程会一直重复，直到给定的条件变为假。

在布尔上下文中，数字 0、字符串 '0' 和 "" 、空列表 () 和 undef 都是 假，所有其他值都是 真。使用 ! 或 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