Mega Code Archive

 

Categories / Perl / Statement

 

While loop, foreach loop, and block and redo

#!/usr/bin/perl use warnings; use strict; my $n = 0; print "With a while loop:\n"; while (++$n < 4) {     print "Hello $n \n";  } print "With a foreach loop:\n"; foreach my $n (1..3) {    print "Hello $n \n";  } print "With a bare block and redo: \n"; $n = 1; {     print "Hello $n \n";    last if (++$n > 3);     redo;  }