perl的while循环及循环跳出

1月 5
小桥流水人家 Code No Comments

perl的while循环输出1-3

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

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

  1. #!/usr/bin/perl
  2. $a = 1;
  3. while ($a<=3) {
  4.    if ($a==2){
  5.       next;
  6.    }
  7.    print "$a\n";
  8. }
  9. continue{
  10.    $a++;
  11. }
, , , ,
1 1