Code · 2010-01-05

perl的while循环及循环跳出

perl的while循环输出1-3

#!/usr/bin/perl
$a=1;
while($a<=3){
   print "$a\n";
   $a++;
}

输出控制,遇到2就跳过,输出1,3

#!/usr/bin/perl
$a = 1;
while ($a<=3) {
   if ($a==2){
      next;
   }
   print "$a\n";
}
continue{
   $a++;
}