Mega Code Archive

 

Categories / Perl / Statement

 

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"; }