📅  最后修改于: 2021-01-07 08:20:47             🧑  作者: Mango
Perl next语句类似于C中的continue语句。它可以帮助您继续进行数组的下一个元素或哈希操作,以跳过它们之间的所有元素。
Perl next语句的语法如下:
next;
@array = (a..z);
print("@array\n");
for ($index = 0; $index < @array; $index++) {
if ($index == 0 || $index == 4 || $index == 8 || $index == 14 || $index == 20) {
next;
}
$array[$index] = "-";
}
print("@array\n");
输出:
a b c d e f g h i j k l m n o p q r s t u v w x y z
a - - - e - - - i - - - - - o - - - - - u - - - - -
在上面的程序中,我们从(az)声明了一个数组。
字母数组按原样打印。
使用for循环,对所有元音使用next语句。
我们已将(-)符号分配给除元音之外的其余数组元素。
现在,由于下一条语句,将仅打印元音元素,而其他元素将替换为(-)符号。
下一个标签允许您将控制权转移到除了相邻循环之外的其他封闭循环中。
如果使用next语句指定了label,则执行将跳至使用label标识的下一个迭代。
Perl next语句的语法如下:
next LABEL;
OUTER: for ($i = 0; $i < 3; $i++) {
for ($j = 0; $j < 3; $j++) {
print("inner: $i,$j\n");
if ($j == 1) {
next OUTER;
}
}
print("outer: $i,$j\n\n");
}
输出:
Inner: 0,0
Inner: 0,1
Inner: 1,0
Inner: 1,1
Inner: 2,0
Inner: 2,1
在上面的程序中,next标签跳转到外循环并像next运算符一样执行for循环。