คำสั่งกลับไปข้าง Perl

วงจร Perl

Perl มีสามรูปแบบของโกโตะ: มี lable โกโตะ expr และข้ามไปและ NAME:

ไวยากรณ์

ไวยากรณ์เป็นดังนี้:

goto LABEL

或

goto EXPR

或

goto &NAME

แผนภูมิการไหล

ตัวอย่าง

สองตัวอย่างต่อไปในตัวแปร $ เป็น 15 ออกจากการส่งออก

ต่อไปนี้เป็นตัวอย่างไปที่ใช้กันทั่วไป:

#/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 );

โปรแกรมข้างต้นผลลัพธ์คือ:

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

ตัวอย่างต่อไปนี้ใช้รูปแบบ expr ข้ามไป เราใช้สองสายและใช้จุด (.) ที่จะเชื่อมโยง

$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 );

โปรแกรมข้างต้นผลลัพธ์คือ:

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

วงจร Perl