Perl 中的 Goto 语句函数

Perl支持Goto语句。有三种形式:goto label、goto expr和goto &name。

Perl Goto - 语法

goto LABEL

or

goto EXPR

or

goto &NAME

Perl Goto - 流程图

Perl 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表单的用法。这里我们使用两个字符串，然后使用字符串连接运算符(.)将它们连接起来。

#/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