Perl goto语句用法详细介绍

Perl中的goto语句是一个跳转语句，有时也称为无条件跳转语句。goto语句可用于在函数中从任意位置跳转到任意位置。

语法如下：

LABEL:
Statement 1;
Statement 2;
.
.
.
.
.
Statement n;
goto LABEL;

在上面的语法中，goto语句将指示编译器立即跳转到标记为LABEL的语句。这里的label是一个用户定义的标识符，它指示目标语句。紧接在' label: '之后的语句是目标语句。

Perl中的goto语句有三种形式——标签、表达式和子例程。

1. 标签：它只会跳到标有LABEL的语句, 并将继续从该语句执行。
2. 表达：在这种形式中, 将有一个表达式, 该表达式将在求值后返回Label名称, 而goto将使其跳转到带标签的语句。
3. 子程序：goto会将编译器从当前运行的子例程转移到给定名称的子例程。

语法如下：

goto LABEL

goto EXPRESSION

goto Subroutine_Name

使用标签名跳转到代码中的特定语句，并从该语句开始执行。不过，它的影响范围有限。它只能在调用它的范围内工作。

例子：

# Perl program to print numbers 
# from 1 to 10 using goto statement 
  
# function to print numbers from 1 to 10 
sub printNumbers() 
{ 
     my $n = 1; 
label: 
     print "$n " ; 
     $n ++; 
     if ( $n <= 10) 
     {
         goto label;
     }
} 
    
# Driver Code
printNumbers();

输出如下：

1 2 3 4 5 6 7 8 9 10

使用goto表达式：表达式也可以用来调用特定的标签，并将执行控制传递给该标签。当传递给goto语句时，该表达式计算生成一个标签名，然后从该标签名定义的语句继续执行。

例子：

# Perl program to print numbers 
# from 1 to 10 using the goto statement 
  
# Defining two strings 
# which contain 
# label name in parts
$a = "lab" ;
$b = "el" ;
  
# function to print numbers from 1 to 10 
sub printNumbers() 
{ 
     my $n = 1; 
label: 
     print "$n " ; 
     $n ++; 
     if ( $n <= 10) 
     {
         # Passing Expression to label name
         goto $a . $b ;
     }
} 
    
# Driver Code
printNumbers();

输出如下：

1 2 3 4 5 6 7 8 9 10

使用goto的子例程:也可以使用goto语句调用子例程。该子例程从另一个子例程中调用，或根据其使用单独调用。它保存在调用语句旁边要执行的工作。此方法可用于递归地调用函数来打印一系列或一段字符。

例子：

# Perl program to print numbers 
# from 1 to 10 using goto statement 
  
# function to print numbers from 1 to 10 
sub label
{
     print "$n " ;
     $n ++;
      
     if ( $n <= 10)
     {
         goto &label;
     }
}
  
# Driver Code
my $n = 1;
label();

输出如下：

1 2 3 4 5 6 7 8 9 10

---