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
