Déclaration de Perl goto

Perl prend en charge un gotodéclaration. Il existe trois formes: goto LABEL, goto EXPR et goto & NAME.

N ° Sr.	aller à taper
1	goto LABEL Le formulaire goto LABEL passe à l'instruction étiquetée LABEL et reprend l'exécution à partir de là.
2	goto EXPR Le formulaire goto EXPR n'est qu'une généralisation de goto LABEL. Il s'attend à ce que l'expression renvoie un nom d'étiquette, puis saute à cette instruction étiquetée.
3	goto &NAME Il remplace un appel au sous-programme nommé pour le sous-programme en cours d'exécution.

Syntaxe

La syntaxe d'un goto déclarations est comme suit -

goto LABEL

or

goto EXPR

or

goto &NAME

Représentation schématique

Exemple

Le programme suivant montre la forme la plus fréquemment utilisée de goto déclaration -

#/usr/local/bin/perl
   
$a = 10;

LOOP:do {
   if( $a == 15) {
      # skip the iteration.
      $a = $a + 1;
      # use goto LABEL form
      goto LOOP;
   }
   print "Value of a = $a\n";
   $a = $a + 1;
} while( $a < 20 );

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

Value of a = 10
Value of a = 11
Value of a = 12
Value of a = 13
Value of a = 14
Value of a = 16
Value of a = 17
Value of a = 18
Value of a = 19

L'exemple suivant montre l'utilisation du formulaire goto EXPR. Ici, nous utilisons deux chaînes, puis nous les concaténons à l'aide de l'opérateur de concaténation de chaînes (.). Enfin, il forme une étiquette et goto est utilisé pour sauter à l'étiquette -

#/usr/local/bin/perl
   
$a = 10;
$str1 = "LO";
$str2 = "OP";

LOOP:do {
   if( $a == 15) {
      # skip the iteration.
      $a = $a + 1;
      # use goto EXPR form
      goto $str1.$str2;
   }
   print "Value of a = $a\n";
   $a = $a + 1;
} while( $a < 20 );

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

Value of a = 10
Value of a = 11
Value of a = 12
Value of a = 13
Value of a = 14
Value of a = 16
Value of a = 17
Value of a = 18
Value of a = 19