Mega Code Archive

 

Categories / Perl / Statement

 

Using the redo statement in a while structure

$number = 1; while ( $number <= 5 ) {    if ( $number <= 10 ) {       print "$number ";       ++$number;       redo;  # Continue loop without testing ( $number <= 5 )    } }      print "\nStopped when \$number became $number.\n";