【perl编程】for循环
for循环
在 perl 中,redo
用于立即重新开始当前的循环迭代,而不进行条件测试和循环控制变量的更新。redo
通常用于在特定条件下重复某个循环迭代。下面是一些示例,展示了如何使用 redo
循环控制语句:
控制语句 | 描述 |
next语句 | 停止执行从next语句的下一语句开始到循环体结束标识符之间的语句,转去执行continue语句块,然后再返回到循环体的起始处开始执行下一次循环。 |
continue语句 | continue 语句块通常在条件语句再次判断前执行。 |
redo语句 | redo 语句直接转到循环体的第一行开始重复执行本次循环,redo语句之后的语句不再执行,continue语句块也不再执行 |
goto语句 | Perl 有三种 goto 形式:got LABLE,goto EXPR,和 goto &NAME。 |
大幅度
my $count = 0;
while ($count < 10) {
$count++;
print "Count: $count\n";
if ($count == 5) {
print "Redo at count 5\n";
redo; # 重新开始当前迭代
}
}
输出:
Count: 1
Count: 2
Count: 3
Count: 4
Count: 5
Redo at count 5
Count: 6
Count: 7
Count: 8
Count: 9
Count: 10