Loop Control Statements

Flow Control Loop Control Statements

Several special statements provide control within any loop construct

Statement	Description	Example
`next;`	Conditional next iteration	`next if ( $line eq "#" );`
`last;`	Conditional last iteration	`las``t if ( $line eq "" );`
`redo;`	Unconditional Redo	`redo if ( $line eq "r" );`

Example:

#!perl

while( $input = <STDIN> )
{
    chomp($input);

    if( $input eq 'r' )
    {
        print "have entered infinite loop\n";
        redo;
    }

    if( $input eq 'l' )
    {
        last;
    }

    if( $input eq 'n' )
    {
        print "next called\n";
        next;
    }

}
print "last called\n";