Perl while 循环


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

句法

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

while(condition) {
   statement(s);
}

这里的语句可以是单个语句或语句块。条件可以是任何表达式当条件为真时,循环会迭代。当条件变为假时,程序控制将传递到紧随循环后面的行。

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

流程图

Perl 中的 while 循环

这里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
perl_loops.htm