Perl中的while循环

Perl 中的 while 循环通常采用括号中的表达式。如果表达式为 True，则执行 while 循环体中的代码。当我们不知道希望循环执行的次数但我们知道循环的终止条件时，使用 while 循环。它也称为入口控制循环，因为在执行循环之前会检查条件。 while 循环可以被认为是一个重复的 if 语句。

句法 ：

while (condition)
{
    # Code to be executed
}

流程图：

例子 ：

# Perl program to illustrate
# the while loop
  
# while loop
$count = 3;
while ($count >= 0)
{
    $count = $count - 1;
    print "GeeksForGeeks\n";
}

输出：

GeeksForGeeks
GeeksForGeeks
GeeksForGeeks
GeeksForGeeks

嵌套的while循环

嵌套的 while 循环是在另一个 while 循环中使用一个 while 循环的循环。在嵌套的 while 循环中，对于外部 while 循环的每次迭代，内部 while 循环都会完全执行。

#!/usr/bin/perl
# Perl program for Nested while loop
$a = 0;  
  
# while loop execution  
while( $a <= 2 )
{  
    $b = 0;  
    while( $b <= 2 )
    {  
        printf "$a $b\n";  
        $b++;  
    }  
    $a++;  
}  

输出：

0 0
0 1
0 2
1 0
1 1
1 2
2 0
2 1
2 2

无限循环

While 循环可以执行无限次，这意味着该循环没有终止条件。换句话说，我们可以说有些条件始终保持为真，这会导致 while 循环执行无限次，或者我们可以说它永远不会终止。

下面的程序将打印指定的语句无限时间，并在在线 IDE 上给出运行时错误为Output Limit Exceeded

# Perl program to illustrate
# the infinite while loop
  
# infinite while loop
# containing condition 1 
# which is always true
while(1)
{
    print "Infinite While Loop\n";
}

输出：

Infinite While Loop
Infinite While Loop
Infinite While Loop
Infinite While Loop
.
.
.
.