Perl goto 語句

作者：Eve Cole 更新時間：2025-01-03 10:48:01

Perl 有三種goto 形式：got LABLE，goto EXPR，和goto &NAME：

序號	goto 類型
1	goto LABEL 找出標記為LABEL 的語句並且從那裡重新執行。
2	goto EXPR goto EXPR 形式只是goto LABEL 的一般形式。它期待表達式產生一個標記名稱，並跳到該標記處執行。
3	goto &NAME 它把正在運作的子程序替換為一個已命名子程序的呼叫。

文法

語法格式如下所示：

 goto LABEL或goto EXPR或goto &NAME

流程圖

實例

以下兩個實例在變數$a 為15 時跳出輸出。

以下是一個常用的goto 實例：

實例

#/usr/bin/perl $a = 10 ; LOOP : do { if ( $a == 15 ) { # 跳過迭代 $a = $a + 1 ; # 使用goto LABEL 形式 print "跳出輸出n " ; goto LOOP ; print "這一句不會被執行n " ; } print " a = $a n " ; $a = $a + 1 ; } while ( $a < 20 ) ;

執行以上程序，輸出結果為：

 a = 10a = 11a = 12a = 13a = 14跳出輸出a = 16a = 17a = 18a = 19

以下實例使用了goto EXPR形式。我們使用了兩個字串，並使用點號(.) 來連結。

實例

$a = 10 ; $str1 = " LO " ; $str2 = " OP " ; LOOP : do { if ( $a == 15 ) { # 跳過迭代 $a = $a + 1 ; # 使用goto EXPR 形式 goto $str1 . $str2 ; # 類似goto LOOP } print " a = $a n " ; $a = $a + 1 ; } while ( $a < 20 ) ;

執行以上程序，輸出結果為：

 a = 10a = 11a = 12a = 13a = 14a = 16a = 17a = 18a = 19