Perl while 循环

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

语法

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

while(condition) {
   statement(s);
}

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

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

流程图

这里的关键点是 while 循环可能永远不会运行。当条件被测试并且结果为假时，循环体将被跳过，并且将执行 while 循环后的第一条语句。

示例

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

# while loop execution
while( $a < 20 ) {
   printf "Value of a: $a\n";
   $a = $a + 1;
}

这里我们使用比较运算符 < 来比较变量 $a 的值与 20。因此，只要 $a 的值小于 20，while 循环就会继续执行紧随其后的代码块，并且一旦 $a 的值等于 20，它就会退出。执行上述代码后，会产生以下结果：

Value of a: 10
Value of a: 11
Value of a: 12
Value of a: 13
Value of a: 14
Value of a: 15
Value of a: 16
Value of a: 17
Value of a: 18
Value of a: 19