Perl goto用法及代碼示例

描述

這個函數有三種形式，第一種形式使當前執行點跳轉到稱為LABEL的點。這種形式的 goto 不能用於跳轉到循環或外部函數。您隻能跳轉到同一範圍內的一個點。

第二種形式期望 EXPR 評估為可識別的 LABEL。一般來說，您應該能夠使用正常的條件語句或函數來控製程序的執行，因此不推薦使用它。

第三種形式用對命名子例程的調用替換當前運行的子例程。新子程序繼承了原子程序的參數棧等特性；新的子程序甚至不可能知道它被另一個名字調用了。

用法

以下是此函數的簡單語法 -

goto LABEL

goto EXPR

goto &NAME

返回值

此函數不返回任何值。

示例

以下是顯示其基本用法的示例代碼 -

#!/usr/bin/perl

$count = 0;

START:
$count = $count + 1;

if( $count > 4 ) {
   print "Exiting program\n";
} else {
   print "Count = $count, Jumping to START:\n";
   goto START;
}

執行上述代碼時，會產生以下結果 -

Count = 1, Jumping to START:
Count = 2, Jumping to START:
Count = 3, Jumping to START:
Count = 4, Jumping to START:
Exiting program