Mega Code Archive

 

Categories / Perl / Statement

 

Using a label

#!/usr/local/bin/perl  $total = 0;  $firstcounter = 0;  DONE: while ($firstcounter < 10) {      $secondcounter = 1;      while ($secondcounter <= 10) {          $total++;          if ($firstcounter == 4 && $secondcounter == 7) {             last DONE;          }          $secondcounter++;      }      $firstcounter++;  }  print ("$total\n");