[oracle@jhoa 7]$ cat 7.pl
for ($i = 1;$i <= 10;$i++){ #从1数到10
next if ($i == 5);
print "I can count to $i!
";
}
[oracle@jhoa 7]$ perl 7.pl
I can count to 1!
I can count to 2!
I can count to 3!
I can count to 4!
I can count to 6!
I can count to 7!
I can count to 8!
I can count to 9!
I can count to 10!