Perl until 循环

until 语句在给定条件为 false 时，重复执行语句或语句组。

语法

语法格式如下所示：

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

在这里，statement(s) 可以是一个单独的语句，也可以是几个语句组成的代码块。

condition 可以是任意的表达式，当条件为 false 时执行循环。当条件为 true 时，程序流将继续执行紧接着循环的下一条语句。

流程图

Perl 中的 until 循环

图表中，until 循环的关键点是循环可能一次都不会执行。当条件为 true 时，会跳过循环主体，直接执行紧接着 while 循环的下一条语句。

实例

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

程序中在变量 $a 小于 10 时执行循环体，在变量 $a 大于 10 时，退出循环。

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

  1. a 的值为 : 5
  2. a 的值为 : 6
  3. a 的值为 : 7
  4. a 的值为 : 8
  5. a 的值为 : 9
  6. a 的值为 : 10