Perl last 语句
当在循环中遇到 last 语句时，循环立即终止，程序控制在循环之后的下一条语句处恢复。 您可以提供带有最后一条语句的 LABEL，其中 LABEL 是循环的标签。 last 语句可以在嵌套循环中使用，如果未指定 LABEL，它将适用于最近的循环。
如果循环中有任何 continue 块，则不会执行。 您将在单独的章节中看到 continue 语句。
语法
Perl 中 last 语句的语法是 −
last [LABEL];
流程图
示例 1
#!/usr/local/bin/perl
$a = 10;
while( $a < 20 ) {
if( $a == 15) {
# terminate the loop.
$a = $a + 1;
last;
}
print "value of a: $a\n";
$a = $a + 1;
}
当上面的代码被执行时，它会产生下面的结果 −
value of a: 10 value of a: 11 value of a: 12 value of a: 13 value of a: 14
示例 2
让我们举一个例子，我们将使用 LABEL 和下一条语句 −
#!/usr/local/bin/perl
$a = 0;
OUTER: while( $a < 4 ) {
$b = 0;
print "value of a: $a\n";
INNER:while ( $b < 4) {
if( $a == 2) {
# terminate outer loop
last OUTER;
}
$b = $b + 1;
print "Value of b : $b\n";
}
print "\n";
$a = $a + 1;
}
当上面的代码被执行时，它会产生下面的结果 −
value of a : 0 Value of b : 1 Value of b : 2 Value of b : 3 Value of b : 4 value of a : 1 Value of b : 1 Value of b : 2 Value of b : 3 Value of b : 4 value of a : 2
