Mega Code Archive

 

Categories / Perl / Statement

 

Print out even numbers with a do while loop

#!/usr/bin/perl use warnings; use strict; my $n = 0; do {    {     next if ($n % 2);     print $n, "\n";   }  } while ($n++ < 10);