在 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: 简单教程(www.twle.cn)

  Copyright © 2015-2065 www.twle.cn. 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