Perl 直到循环

---

Perl 编程语言中的until循环语句只要给定条件为假，就会重复执行目标语句。

句法

Perl 编程语言中Until循环的语法是 -

until(condition) {
   statement(s);
}

这里的语句可以是单个语句或语句块。条件可以是任何表达式。循环迭代直到条件成立。当条件成立时，程序控制将传递到紧接循环后面的行。

数字 0、字符串 '0' 和 "" 、空列表 () 和 undef在布尔上下文中都是false ，所有其他值都是true。否定真值！or not返回一个特殊的 false 值。

流程图

此处， 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，直到$ 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