Perl goto 语句

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

先生。	转到类型
1	转到标签 goto LABEL 形式跳转到标有 LABEL 的语句并从那里恢复执行。
2	转到 EXPR goto EXPR 形式只是 goto LABEL 的概括。它期望表达式返回标签名称，然后跳转到该带标签的语句。
3	转到&NAME 它将对指定子例程的调用替换为当前运行的子例程。

先生。

转到类型

转到标签

goto LABEL 形式跳转到标有 LABEL 的语句并从那里恢复执行。

转到 EXPR

goto EXPR 形式只是 goto LABEL 的概括。它期望表达式返回标签名称，然后跳转到该带标签的语句。

转到&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