Perl until 循环

Perl 编程语言中的 until 循环语句会重复执行目标语句，直到给定条件为真。

语法

Perl 编程语言中 until 循环的语法如下：

until(condition) {
   statement(s);
}

这里 statement(s) 可以是单个语句或语句块。condition 可以是任何表达式。循环迭代直到条件变为真。当条件变为真时，程序控制将传递到循环后紧跟的语句。

数字 0、字符串 '0' 和 ""、空列表 () 和 undef 在布尔上下文中都为 false，所有其他值都为 true。使用 ! 或 not 对真值取反会返回一个特殊的假值。

流程图

until 循环的关键点在于循环可能根本不会运行。当测试条件并结果为真时，将跳过循环体，并执行 until 循环后的第一条语句。

示例

#!/usr/local/bin/perl
 
$a = 5;

# until loop execution
until( $a > 10 ) {
   printf "Value of a: $a\n";
   $a = $a + 1;
}

这里我们使用比较运算符 > 来比较变量 $a 的值与 10。所以，直到 $a 的值小于 10，until 循环继续执行紧跟其后的代码块，一旦 $a 的值大于 10，它就退出。执行上述代码后，产生以下结果：

Value of a: 5
Value of a: 6
Value of a: 7
Value of a: 8
Value of a: 9
Value of a: 10