Pernyataan goto perl
Perl memiliki tiga bentuk goto: mendapat label, goto EXPR, dan goto & NAMA:
| Tidak. | Jenis goto |
|---|---|
| 1 | goto LABEL Cari pernyataan LABEL berlabel dan re-dieksekusi dari sana. |
| 2 | goto EXPR goto EXPR bentuk goto LABEL adalah bentuk umum. Itu memandang ke depan untuk sebuah ekspresi menghasilkan nama tag, dan melompat ke tanda untuk melakukan. |
| 3 | goto & NAME Ini adalah proses anak berjalan dengan panggilan untuk bernama sub-proses. |
tatabahasa
Sintaksnya adalah sebagai berikut:
goto LABEL 或 goto EXPR 或 goto &NAME
diagram alir
contoh
Berikut dua contoh dalam variabel $ a adalah 15 dari output.
Berikut ini adalah contoh goto umum digunakan:
#/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 );
Program di atas, output adalah:
a = 10 a = 11 a = 12 a = 13 a = 14 a = 16 a = 17 a = 18 a = 19
Contoh berikut ini menggunakan bentuk EXPR goto. Kami menggunakan dua string dan menggunakan dot (.) Untuk 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 );
Program di atas, output adalah:
a = 10 a = 11 a = 12 a = 13 a = 14 a = 16 a = 17 a = 18 a = 19