Mega Code Archive

 

Categories / Perl / Statement

 

Using block labels with next in nested looping structures

OUTER: foreach $row ( 1 .. 10 ) {    INNER: foreach $column ( 1 .. 10 ) {              if ( $row < $column ) {                 print "\n";                 next OUTER;              }              print "$column   ";           }        }