Perl last 語句

迴圈內遇到 last 語句時，迴圈會立即終止，並且程式控制元件將繼續執行迴圈後的下一條語句。可以在帶有 last 語句的 LABEL 中提供一個標籤，其中 LABEL 是迴圈的標籤。如果未指定 LABEL，可以在巢狀迴圈內使用 last 語句，它將應用於最近的迴圈。

如果有任何 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 以及 next 語句 −

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