Perl do...while 循环

---

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

do ...while循环与 while 循环类似，不同之处在于 do...while 循环保证至少执行一次。

句法

Perl 中do...while循环的语法是 -

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

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

数字 0、字符串 '0' 和 "" 、空列表 () 和 undef在布尔上下文中都是false ，所有其他值都是true。否定真值！or not返回一个特殊的 false 值。

流程图

例子

#!/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