Mega Code Archive

 

Categories / Perl / Statement

 

The dowhile and dountil Loops

#!/usr/bin/perl $x = 1; do {     print "$x ";     $x++; } while ($x <= 10); print    "\n"; $y = 1; do {     print "$y " ;     $y++; } until ($y > 10);