Perl 循环

转载 Perl 循环

循环控制语句

循环控制语句改变了代码的执行顺序，通过它你可以实现代码的跳转。

Perl 提供了下列的循环控制语句:

控制语句	描述
next 语句	停止执行从next语句的下一语句开始到循环体结束标识符之间的语句，转去执行continue语句块，然后再返回到循环体的起始处开始执行下一次循环。 如果没有指定Label，将回到循环体的初始处执行下一次循环，此时作用相当于结束本次循环。
last 语句	退出循环语句块，从而结束循环
continue 语句	continue 语句块通常在条件语句再次判断前执行。
redo 语句	redo 语句直接转到循环体的第一行开始重复执行本次循环，redo语句之后的语句不再执行，continue语句块也不再执行；
goto 语句	Perl 有三种 goto 形式：goto LABLE，goto EXPR，和 goto &NAME。

while 循环中 continue 语句语法格式如下所示：

while(condition){
   statement(s);
}continue{
   statement(s);
}

foreach 循环中 continue 语句语法格式如下所示：

foreach $a (@listA){
   statement(s);
}continue{
   statement(s);
}

#/usr/bin/perl
   
$a = 0;
#continue语句在第一次判断的时候不执行，之后条件判断后均要执行
while($a < 3){
   print "a = $a\n";
}continue{ #再次判断后均要执行，里面的代码块
   $a = $a + 1;
}

输出结果为

a = 0
a = 1
a = 2