Perl next 语句

Perl next 语句用于停止执行从next语句的下一语句开始到循环体结束标识符之间的语句，转去执行continue语句块，然后再返回到循环体的起始处开始执行下一次循环。

语法

语法格式如下所示：

  1. next [ LABEL ];

其中 LABEL 是可选的，如果没有指定 LABEL，next 语句将返回到循环体的起始处开始执行下一次循环。

实例

  1. #!/usr/bin/perl
  3. $a = 10;
  4. while( $a < 20 ){
  5.    if( $a == 15)
  6.    {
  7.        # 跳出迭代
  8.        $a = $a + 1;
  9.        next;
  10.    }
  11.    print "a 的值为: $a\n";
  12.    $a = $a + 1;
  13. }

执行以上程序，输出结果为：

  1. a 的值为: 10
  2. a 的值为: 11
  3. a 的值为: 12
  4. a 的值为: 13
  5. a 的值为: 14
  6. a 的值为: 16
  7. a 的值为: 17
  8. a 的值为: 18
  9. a 的值为: 19