Perl while 循环
只要给定条件为真，Perl 编程语言中的 while 循环语句就会重复执行目标语句。
语法
Perl 编程语言中 while 循环的语法是 −
while(condition) {
statement(s);
}
这里的 statement(s) 可以是单个语句或语句块。 条件 可以是任何表达式。 当条件为真时循环迭代。 当条件变为 false 时，程序控制将传递到紧跟在循环后面的行。
数字 0、字符串 '0' 和 "" 、空列表 () 和 undef 在布尔上下文中都是 false，所有其他值都是 true。 ! 或 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
