Perl学习（四）

100以内偶数

#/usr/bin/perl -w

for ($i=0;$i<=100;$i++) {
 next if ($i%2);
 print "Odd number is $i\n";
}