Instruction Goto de Perl

Auteur：Eve Cole Date de mise à jour：2025-01-03 10:48:01

Perl a trois formes goto : got LABLE, goto EXPR et goto &NAME :

numéro de série	aller taper
1	aller à ÉTIQUETTE Recherchez l'instruction marquée LABEL et réexécutez-la à partir de là.
2	aller à EXPR Le formulaire goto EXPR n'est que la forme générale de goto LABEL. Il s'attend à ce que l'expression génère un nom de balise et accède à cette balise pour exécution.
3	aller à&NOM Il remplace le processus enfant en cours d'exécution par un appel au processus enfant nommé.

grammaire

Le format de syntaxe est le suivant :

 allez à LABEL ou allez à EXPR ou allez à &NAME

organigramme

Exemple

Les deux exemples suivants sortent de la sortie lorsque la variable $a est 15.

Voici un exemple goto couramment utilisé :

Exemple

#/usr/bin/perl $a = 10 ; BOUCLE : faire { si ( $a == 15 ) { # Sauter l'itération $a = $a + 1 ; # Utiliser le formulaire goto LABEL imprimer " Sortir de la sortie n " ; BOUCLE ; imprimer " Cette phrase ne sera pas exécutée n " } imprimer " a = $a n " ; $a = $a + 1 } tandis que ( $a < 20 ) ;

En exécutant le programme ci-dessus, le résultat de sortie est :

 a = 10a = 11a = 12a = 13a = 14 saut hors de la sortie a = 16a = 17a = 18a = 19

Les exemples suivants utilisent le formulaire goto EXPR. Nous avons utilisé deux chaînes et les avons liées à l'aide d'un point (.).

Exemple

$ a = 10 ; $ str1 = " LO " ; $ str2 = " OP " ; { si ( $a == 15 ) { # Sauter l'itération $a = $a + 1 ; # Utiliser le formulaire goto EXPR aller à $str1 . $str2 ; # Similaire à aller à BOUCLE } imprimer " a = $a n " ; $a = $a + 1 } tandis que ( $a < 20 ) ;

En exécutant le programme ci-dessus, le résultat de sortie est :

 une = 10a = 11a = 12a = 13a = 14a = 16a = 17a = 18a = 19