Mega Code Archive

 

Categories / Perl / Statement

 

Labels

#!/usr/local/bin/perl -w     # Define the label name.     EXIT:     {        for (;;)        {            my $x = 0;           for (;;$x++)           {              print "$x, \n";              last EXIT if $x >= 5;           }        }     }     print "Out of for loops.\n";