Perl 循环不像 for 和 while 循环，它们是在循环头部测试循环条件。在 Perl 语言中，do...while 循环是在循环的尾部检查它的条件。
do...while 循环与 while 循环类似，但是 do...while 循环会确保至少执行一次循环。
语法
语法格式如下所示：
do{ statement(s);}while( condition );请注意，条件表达式出现在循环的尾部，所以循环中的 statement(s) 会在条件被测试之前至少执行一次。
如果条件为 true，控制流会跳转回上面的 do，然后重新执行循环中的 statement(s)。这个过程会不断重复，直到给定条件变为 false 为止。
流程图
实例
#!/usr/bin/perl $a = 10; # 执行 do...while 循环do{ printf "a 的值为: $a\n"; $a = $a + 1;}while( $a < 15 );
执行以上程序，输出结果为：
a 的值为: 10a 的值为: 11a 的值为: 12a 的值为: 13a 的值为: 14