do 〜 while Perl $n = 0; do { print $n++, "\n" # 0 - 9 } while ($n < 10); print $n, "\n\n"; # 10 $n = 0; print $n++, "\n" while ($n < 10); # 0 - 9 print $n, "\n\n"; # 10 $n = 0; do { print $n++, "\n" # 0 - 9 } until ($n >= 10); print $n, "…