Perl while 迴圈
Perl 迴圈while 語句在給定條件為 true 時，重複執行語句或語句組。迴圈主體執行之前會先測試條件。
語法
語法格式如下所示：
while(condition)
{
statement(s);
}
在這裏，statement(s) 可以是一個單獨的語句，也可以是幾個語句組成的代碼塊。
condition 可以是任意的運算式，當條件為 true 時執行迴圈。 當條件為 false 時，程式流將退出迴圈。
流程圖
圖表中，while 迴圈的關鍵點是迴圈可能一次都不會執行。當條件為 false 時，會跳過迴圈主體，直接執行緊接著 while 迴圈的下一條語句。
實例
#!/usr/bin/perl
$a = 10;
# 執行 while 迴圈
while( $a < 20 ){
printf "a 的值為 : $a\n";
$a = $a + 1;
}
程式中在變數 $a 小於 20 時執行循環體，在變數 $a 大於等於 20 時，退出迴圈。
執行以上程式，輸出結果為：
a 的值為 : 10 a 的值為 : 11 a 的值為 : 12 a 的值為 : 13 a 的值為 : 14 a 的值為 : 15 a 的值為 : 16 a 的值為 : 17 a 的值為 : 18 a 的值為 : 19