Perl支持Goto语句。有三种形式:goto label、goto expr和goto &name。
Sr.No. | goto type |
---|---|
1 |
goto label goto label表单跳转到用label标签的语句,并从那里继续执行。 |
2 |
goto expr goto expr形式只是goto label的概括。 |
3 |
goto &name 它将对当前运行的子例程的调用替换为命名子例程。 |
Perl Goto - 语法
goto LABEL or goto EXPR or goto &NAME
Perl Goto - 流程图
Perl Goto - 示例
#/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 );
执行上述代码时,将生成以下输出-
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
以下示例显示了goto expr表单的用法。这里我们使用两个字符串,然后使用字符串连接运算符(.)将它们连接起来。
#/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 );
执行上述代码时,将生成以下输出-
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