Mega Code Archive

 

Categories / Perl / Statement

 

A program that demonstrates the while statement

#!/usr/local/bin/perl  $done = 0;  $count = 1;  print ("This line is printed before the loop starts.\n");  while ($done == 0) {      print ("The value of count is ", $count, "\n");      if ($count == 3) {          $done = 1;      }      $count = $count + 1;  }  print ("End of loop.\n");