redo statement : Redo « Statement « Perl






redo statement



#!/usr/bin/perl -w

use strict;

my $number = 10;

while (<STDIN>) {
    chomp;
    print "You entered: $_\n";
    if ($_ == $number) {
        $_++;
         redo;
    }
    print "Going to read the next number now...\n";
}

 








Related examples in the same category

1.Using the redo statement in a while structure.
2.While loop, foreach loop, and block and redo
3.A word-counting program that uses the redo statement.
4.Using a label without a loop and the redo statement