Perl continue 语句

---

continue块总是在条件即将再次计算之前执行。continue 语句可与while和foreach循环一起使用。continue 语句也可以与代码块一起单独使用，在这种情况下，它将被假定为流程控制语句而不是函数。

句法

带while循环的continue语句的语法如下 -

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

带foreach循环的continue语句的语法如下 -

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

带有代码块的continue语句的语法如下 -

continue {
   statement(s);
}

例子

以下程序使用while循环模拟for循环-

#/usr/local/bin/perl
   
$a = 0;
while($a < 3) {
   print "Value of a = $a\n";
} continue {
   $a = $a + 1;
}

这将产生以下结果 -

Value of a = 0
Value of a = 1
Value of a = 2

以下程序显示了continue语句与foreach循环的用法-

#/usr/local/bin/perl
   
@list = (1, 2, 3, 4, 5);
foreach $a (@list) {
   print "Value of a = $a\n";
} continue {
   last if $a == 4;
}

这将产生以下结果 -

Value of a = 1
Value of a = 2
Value of a = 3
Value of a = 4