goto Perl
Perl tem três formas de Goto: obtido LABLE, EXPR Goto, e Goto & NOME:
| Não. | tipo de Goto |
|---|---|
| 1 | Goto LABEL Procurar a instrução LABEL rotulados e re-executado a partir de lá. |
| 2 | Goto EXPR Goto EXPR forma Goto LABEL é a forma geral. Expressou o desejo de uma expressão gera um nome de marca, e salte para a marca de executar. |
| 3 | Goto & NOME É um processo de criança que funciona com uma chamada para um nomeado sub-processos. |
gramática
A sintaxe é a seguinte:
goto LABEL 或 goto EXPR 或 goto &NAME
fluxograma
Exemplos
Os dois exemplos a seguir na variável $ a é de 15 fora da saída.
O seguinte é uma exemplos Goto comumente utilizados:
#/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 );
O programa acima, a saída é:
a = 10 a = 11 a = 12 a = 13 a = 14 a = 16 a = 17 a = 18 a = 19
O exemplo a seguir usa formulário EXPR Goto. Foram utilizadas duas cordas e usar um ponto (.) Para o 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 );
O programa acima, a saída é:
a = 10 a = 11 a = 12 a = 13 a = 14 a = 16 a = 17 a = 18 a = 19