Perl goto 语句

Perl 支持 goto 语句。有三种形式：goto LABEL、goto EXPR 和 goto &NAME。

序号	goto 类型
1	goto LABEL goto LABEL 形式跳转到用 LABEL 标记的语句，并从那里继续执行。
2	goto EXPR goto EXPR 形式只是 goto LABEL 的泛化。它期望表达式返回一个标签名称，然后跳转到该标记的语句。
3	goto &NAME 它用命名子程序的调用替换当前正在运行的子程序。

序号

goto 类型

goto LABEL

goto LABEL 形式跳转到用 LABEL 标记的语句，并从那里继续执行。

goto EXPR

goto EXPR 形式只是 goto LABEL 的泛化。它期望表达式返回一个标签名称，然后跳转到该标记的语句。

goto &NAME

它用命名子程序的调用替换当前正在运行的子程序。

语法

goto 语句的语法如下：

goto LABEL

or

goto EXPR

or

goto &NAME

流程图

示例

以下程序显示了 goto 语句最常用的形式：

实时演示

#/usr/local/bin/perl
   
$a = 10;

LOOP:do {
   if( $a == 15) {
      # skip the iteration.
      $a = $a + 1;
      # use goto LABEL form
      goto LOOP;
   }
   print "Value of a = $a\n";
   $a = $a + 1;
} while( $a < 20 );

执行以上代码时，会产生以下结果：

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

以下示例显示了 goto EXPR 形式的用法。这里我们使用两个字符串，然后使用字符串连接运算符 (.) 连接它们。最后，它形成一个标签，并且使用 goto 跳转到该标签：

实时演示

#/usr/local/bin/perl
   
$a = 10;
$str1 = "LO";
$str2 = "OP";

LOOP:do {
   if( $a == 15) {
      # skip the iteration.
      $a = $a + 1;
      # use goto EXPR form
      goto $str1.$str2;
   }
   print "Value of a = $a\n";
   $a = $a + 1;
} while( $a < 20 );

执行以上代码时，会产生以下结果：

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

perl_loops.htm

打印页面