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