Función Perl goto

Descripción

Esta función tiene tres formas, la primera forma hace que el punto de ejecución actual salte al punto referido como LABEL. Un goto en esta forma no puede usarse para saltar a un bucle o función externa. Solo puede saltar a un punto dentro del mismo alcance.

El segundo formulario espera que EXPR evalúe a una ETIQUETA reconocible. En general, debería poder usar una instrucción o función condicional normal para controlar la ejecución de un programa, por lo que su uso está desaprobado.

La tercera forma sustituye una llamada a la subrutina nombrada por la subrutina actualmente en ejecución. La nueva subrutina hereda la pila de argumentos y otras características de la subrutina original; se vuelve imposible para la nueva subrutina incluso saber que fue llamada por otro nombre.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

goto LABEL

goto EXPR

goto &NAME

Valor devuelto

Esta función no devuelve ningún valor.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

#!/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;
}

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Count = 1, Jumping to START:
Count = 2, Jumping to START:
Count = 3, Jumping to START:
Count = 4, Jumping to START:
Exiting program