Perl goto语句

Perl goto语句是跳转语句。它通过跳到循环内的其他标签来转移控制权。

共有三种goto形式：

转到标签：

它跳转到标有LABEL的语句, 并从此处恢复正常执行。

转到EXPR：

它是goto LABEL的概括。该表达式返回标签​​名称, 然后跳转到该标签语句。

转到＆NAME：

对于当前运行的子例程, 它将调用替换为命名子例程。

Perl goto语句的语法如下：

goto LABEL

or

goto EXPR

or

goto &NAME

Perl goto语句示例

让我们看一个使用Perl语言使用goto语句的简单示例。

LOOP:do
print "You are not eligible to vote!\n";
print "Enter your age\n";
$age = <>;
    if( $age < 18){ 
       goto LOOP;
    }
    else{ 
    print "You are eligible to vote\n"; 
}

输出

You are not eligible to vote!
Enter your age:
11
You are not eligible to vote!
Enter your age:
5
You are not eligible to vote!
Enter your age:
26
You are eligible to vote!