Mega Code Archive

 

Categories / Perl / Statement

 

While and until loop

#!C:/perl/bin $loopcounter = 1; while ($loopcounter < 10) {     print "loop count = $loopcounter ";     $loopcounter++ } $loopcounter = 1; print "\n\nThe Until Loop:\n"; until ($loopcounter > 10) {     print "loop count = $loopcounter ";     $loopcounter++ }