Perl do...while 循环
for 和 while 循环在循环顶部测试循环条件，而 do...while 循环在 循环的底部。
do...while 循环类似于 while 循环，不同之处在于 do...while 循环保证至少执行一次。
语法
Perl 中 do...while 循环的语法是 −
do {
statement(s);
}while( condition );
需要注意的是，条件表达式出现在循环的末尾，因此循环中的语句在测试条件之前执行一次。 如果条件为真，则控制流跳回执行，循环中的语句再次执行。 重复此过程，直到给定条件变为假。
数字 0、字符串 '0' 和 "" 、empty list () 和 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
