Perl do…while 循环

不像 for 和 while 循环，它们是在循环头部测试循环条件。在 Perl 语言中，do…while 循环是在循环的尾部检查它的条件。

do…while 循环与 while 循环类似，但是 do…while 循环会确保至少执行一次循环。

语法

语法格式如下所示：

  1. do
  2. {
  3.    statement(s);
  4. }while( condition );

请注意，条件表达式出现在循环的尾部，所以循环中的 statement(s) 会在条件被测试之前至少执行一次。

如果条件为 true，控制流会跳转回上面的 do，然后重新执行循环中的 statement(s)。这个过程会不断重复，直到给定条件变为 false 为止。

流程图

Perl 中的 do...while 循环

实例

  1. #!/usr/bin/perl
  3. $a = 10;
  5. # 执行 do...while 循环
  6. do{
  7.    printf "a 的值为: $a\n";
  8.    $a = $a + 1;
  9. }while( $a < 15 );

执行以上程序，输出结果为：

  1. a 的值为: 10
  2. a 的值为: 11
  3. a 的值为: 12
  4. a 的值为: 13
  5. a 的值为: 14