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