Perl goto 函数

• 

  描述

  goto该函数具有三种形式

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

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

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

  句法

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

  
  goto LABEL
  
  goto EXPR
  
  goto &NAME
  

• 

  返回值

  此函数不返回任何值。
• 

  示例

  以下是显示其基本用法的示例代码，它将检查Nagle的算法是否在套接字上打开。但是，在此示例中，您将必须打开一个套接字以提供存储的ID-

   
  $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