Perl do...while 迴圈
Perl 迴圈不像 for 和 while 迴圈，它們是在迴圈頭部測試迴圈條件。在 Perl 語言中，do...while 迴圈是在迴圈的尾部檢查它的條件。
do...while 迴圈與 while 迴圈類似，但是 do...while 迴圈會確保至少執行一次迴圈。
語法
語法格式如下所示：
do
{
statement(s);
}while( condition );
請注意，條件運算式出現在迴圈的尾部，所以迴圈中的 statement(s) 會在條件被測試之前至少執行一次。
如果條件為 true，控制流會跳轉回上面的 do，然後重新執行迴圈中的 statement(s)。這個過程會不斷重複，直到給定條件變為 false 為止。
流程圖
實例
#!/usr/bin/perl
$a = 10;
# 執行 do...while 迴圈
do{
printf "a 的值為: $a\n";
$a = $a + 1;
}while( $a < 15 );
執行以上程式，輸出結果為：
a 的值為: 10 a 的值為: 11 a 的值為: 12 a 的值為: 13 a 的值為: 14