Perlはループしながら...行います
forループとwhileとは異なり、それらはループのループ条件をテストしています。ループは、ループの最後で、その状態を確認することであるが、Perlで、...行います。
ループはwhileループに似ていながら...行うが、ループは、少なくともサイクルの実施を確保する一方...行います。
文法
構文は次のとおりです。
do
{
statement(s);
}while( condition );
条件式は、ループの最後に表示されますので、条件がテストされる前に、ループ文（複数可）を少なくとも1回実行されますのでご注意ください。
条件が真の場合、制御の流れは、上記バックんジャンプし、再度実行ループ文（複数可）。 所定の条件が偽になるまで、このプロセスが繰り返されます。
フローチャート
例
#!/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