无涯教程-Perl - last 语句函数

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

last - 语法

last [LABEL];

last - 流程图

last - 示例

#!/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

让我们举一个示例，我们将在下一条语句中使用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

参考链接

https://www.learnfk.com/perl/perl-last-statement.html