Perl while 循環
Perl 循環while 語句在給定條件為 true 時，重復執行語句或語句組。循環主體執行之前會先測試條件。
語法
語法格式如下所示：
while(condition)
{
statement(s);
}
在這里，statement(s) 可以是一個單獨的語句，也可以是幾個語句組成的代碼塊。condition 可以是任意的表達式，當為任意非零值時都為 true。當條件為 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
