Perl 最后一条语句

---

当循环内遇到最后一条语句时，循环立即终止，程序控制从循环后面的下一条语句恢复。您可以在最后一个语句中提供 LABEL，其中 LABEL 是循环的标签。最后一个语句可以在嵌套循环中使用，如果未指定 LABEL，则该语句将适用于最近的循环。

如果循环中有任何continue块，则不会执行。您将在单独的章节中看到 continue 语句。

句法

Perl 中最后一条语句的语法是 -

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