Perl next
Perl next语句
Perl next 语句类似于 C 中的 continue 语句。它可以帮助您移动到数组的下一个元素或哈希跳过中间的所有元素.
Perl next 语句的语法如下:
Perl 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语句
我们已经为除元音以外的数组元素分配了(-) 符号。
现在由于下一条语句,只有元音元素将被打印出来,并且其他元素将替换为(-) 符号。
带有标签的 Perl next 语句
下一个标签允许您将控制转移到相邻循环以外的封闭循环。
如果标签用 next 语句指定,执行跳到用 label 标识的下一个迭代。
Perl next 语句的语法如下:
Perl next statement with label Example
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 label跳转到外层循环,和next操作符一样执行for循环。