Perl goto-Anweisung
Perl hat drei Formen von goto: got LABLE, zur EXPR und goto & NAME:
| Nein. | goto Typ |
|---|---|
| 1 | goto LABEL Finden Sie die markierte Anweisung LABEL und wieder von dort ausgeführt. |
| 2 | goto AUSDR goto AUSDR goto LABEL Form ist die allgemeine Form. Er sieht auf einen Ausdruck erzeugt einen Tag-Namen, und Sprung zur Marke auszuführen. |
| 3 | goto & NAMEN Es ist ein laufendes Kind-Prozess mit einem Aufruf zu einem benannten Teilprozesse. |
Grammatik
Die Syntax lautet wie folgt:
goto LABEL 或 goto EXPR 或 goto &NAME
Flussdiagramm
Beispiele
Die folgenden zwei Beispiele in der Variablen $ a 15 von der Ausgabe.
Das Folgende ist eine häufig verwendete goto Beispiele:
#/usr/bin/perl
$a = 10;
LOOP:do
{
if( $a == 15){
# 跳过迭代
$a = $a + 1;
# 使用 goto LABEL 形式
goto LOOP;
}
print "a = $a\n";
$a = $a + 1;
}while( $a < 20 );
Das obige Programm, das Ausgabe ist:
a = 10 a = 11 a = 12 a = 13 a = 14 a = 16 a = 17 a = 18 a = 19
Das folgende Beispiel verwendet goto AUSDR Form. Wir haben zwei Strings und verwenden Sie einen Punkt (.), Um den Link.
$a = 10;
$str1 = "LO";
$str2 = "OP";
LOOP:do
{
if( $a == 15){
# 跳过迭代
$a = $a + 1;
# 使用 goto EXPR 形式
goto $str1.$str2; # 类似 goto LOOP
}
print "a = $a\n";
$a = $a + 1;
}while( $a < 20 );
Das obige Programm, das Ausgabe ist:
a = 10 a = 11 a = 12 a = 13 a = 14 a = 16 a = 17 a = 18 a = 19