Perl 中的 goto函数

描述

该函数具有三种形式,第一种形式使当前执行点跳到称为LABEL的点。这种形式的goto不能用于跳入循环或外部函数。您只能跳至同一范围内的一点。

第二种形式期望EXPR判断为可识别的LABEL。通常,您应该能够使用普通的条件语句或函数来控制程序的执行,因此不建议使用该程序。

无涯教程网

第三种形式将对当前运行的子例程的调用替换为命名子例程。新的子例程继承了参数堆栈和原始子例程的其他功能。对于新的子例程,即使知道它被另一个名称调用也变得不可能。

语法

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

链接：https://www.learnfk.comhttps://www.learnfk.com/perl/perl-goto.html

来源：LearnFk无涯教程网

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