Perl goto 函数

描述

此函数有三种形式，第一种形式使当前执行点跳转到称为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