Perl `while`循环

原文： https://beginnersbook.com/2017/02/while-loop-in-perl-with-example/

在上一个教程中，我们在 Perl 中讨论了for循环。在本教程中，我们将讨论while循环。如前一个教程中所讨论的，循环用于重复执行一组语句，直到满足特定条件。

while循环的语法：

while(condition)
{
   statement(s);
}

while循环的执行流程

在while循环中，首先计算条件，如果它返回true，则while循环中的语句执行。当condition返回false时，控制流退出循环并跳转到while循环后的下一个语句。

注意：使用while循环时要注意的重点是我们需要在while循环中使用递增或递减语句，以便循环变量在每次迭代时都会发生变化，并且在某些情况下返回false。这样我们就可以结束while循环的执行，否则循环将无限期地执行。

例

#!/usr/local/bin/perl
$num = 100;
while( $num > 95 ){
   printf "$num\n";
   $num--;
}

输出：

100
99
98
97
96