goto statement

优质

小牛编辑

132浏览

2023-12-01

Perl确实支持goto语句。有三种形式:转到LABEL，转到EXPR，转到和NAME。

Sr.No.	转到类型
1	goto LABEL goto LABEL表单跳转到标有LABEL的语句，并从那里继续执行。
2	goto EXPR 转到EXPR表单只是goto LABEL的概括。它希望表达式返回一个标签名称，然后跳转到那个带标签的语句。
3	goto &NAME 它将对当前运行的子例程的命名子例程的调用替换。

Sr.No.

转到类型

goto LABEL

goto LABEL表单跳转到标有LABEL的语句，并从那里继续执行。

goto EXPR

转到EXPR表单只是goto LABEL的概括。它希望表达式返回一个标签名称，然后跳转到那个带标签的语句。

goto &NAME

它将对当前运行的子例程的命名子例程的调用替换。

语法 (Syntax)

goto语句的语法如下 -

goto LABEL
or
goto EXPR
or
goto &NAME

流程图 (Flow Diagram)

例子 (Example)

以下程序显示了最常用的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

以下示例显示了转到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