perl 中next的用法

在 Perl 中，`next` 是一个控制语句，用于跳过当前循环中的迭代。它通常用于条件语句或循环语句中。

下面是一个示例：

foreach my $num (1..10) {
  if ($num == 5) {
    next; # 跳过当前迭代
  }
  print "$num\n";
}

在上面的示例中，当 `$num` 等于 5 时，`next` 语句将跳过当前迭代，直接进入下一次迭代，不会执行 `print` 语句。

`next` 语句还可以指定一个参数，表示要跳过几次迭代。例如：

foreach my $num (1..10) {
  if ($num % 2 == 0) {
    next 2; # 跳过下两次迭代
  }
  print "$num\n";
}

在上面的示例中，当 `$num` 是偶数时，`next 2` 语句将跳过下两次迭代，也就是跳过下一个奇数和下一个偶数，直接进入下下个奇数的迭代。