Perl 转到函数

描述

该函数有三种形式，第一种形式使当前执行点跳转到 LABEL 所指的点。这种形式的 goto 不能用于跳转到循环或外部函数。您只能跳转到同一范围内的点。

第二种形式期望 EXPR 计算为可识别的 LABEL。一般来说，您应该能够使用普通的条件语句或函数来控制程序的执行，因此不推荐使用它。

第三种形式将对指定子例程的调用替换为当前运行的子例程。新子程序继承了原子程序的参数堆栈和其他功能；新的子例程甚至不可能知道它是用另一个名称调用的。

句法

以下是该函数的简单语法 -

goto LABEL

goto EXPR

goto &NAME

返回值

该函数不返回任何值。

例子

以下是显示其基本用法的示例代码 -

#!/usr/bin/perl

$count = 0;

START:
$count = $count + 1;

if( $count > 4 ) {
   print "Exiting program\n";
} else {
   print "Count = $count, Jumping to START:\n";
   goto START;
}

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

Count = 1, Jumping to START:
Count = 2, Jumping to START:
Count = 3, Jumping to START:
Count = 4, Jumping to START:
Exiting program