# Perl - `do-while`循環 > 原文： [https://beginnersbook.com/2017/02/perl-do-while-loop-with-example/](https://beginnersbook.com/2017/02/perl-do-while-loop-with-example/) 在上一個教程中，我們討論了[`while`循環](https://beginnersbook.com/2017/02/while-loop-in-perl-with-example/)。在本教程中，我們將討論 Perl 中的`do-while`循環。`do-while`循環類似于`while`循環，但是它們之間存在差異：在`while`循環中，在執行循環體之前評估條件，但是在執行循環體之后評估`do-while`循環條件。 #### `do-while`循環的語法： ```perl do { statement(s); } while(condition); ``` ### 執行循環的流程 首先，循環內的語句執行，然后條件得到評估，如果條件返回`true`，則控制流轉移到`do`，否則它會在`do-while`之后跳轉到下一個語句。 #### 例 ```perl #!/usr/local/bin/perl $num = 90; do{ $num++; printf "$num\n"; }while( $num < 100 ); ``` **輸出：** ```perl 91 92 93 94 95 96 97 98 99 100 ```