Mega Code Archive

 

Categories / Perl / Statement

 

Using the dountil repetition structure

$counter = 10; do  {    print "$counter "; } until ( --$counter == 0 ); print "\n";