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