在Perl 语言中， do...while 循环是在循环的尾部检查它的条件。不像 for 和 while 循环，它们是在循环头部测试循环条件。
do...while 循环与 while 循环类似，但是 do...while 循环会确保至少执行一次循环。
do...while 语句语法格式
Perl 中的 do...while 语句语法格式如下所示：
do
{
statement(s);
}while( condition );
如果条件为 true，控制流会跳转回上面的 do，然后重新执行循环中的 statement(s) 这个过程会不断重复，直到给定条件变为 false 为止
注意:
条件表达式出现在循环的尾部，所以循环中的 statement(s) 会在条件被测试之前至少执行一次
do...while 语句流程图
Perl 中的 do...while 语句流程图如下
范例 : Perl 中 do...while 语句的使用
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看，程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
$i = 5;
# 执行 do...while 循环
#
do{
printf "i 的值为: $i\n";
$i += 1;
}while( $i < 9 );
运行以上范例，输出结果为:
$ perl main.pl
i 的值为: 5
i 的值为: 6
i 的值为: 7
i 的值为: 8