📌  相关文章
📜  Perl开关

📅  最后修改于: 2021-01-07 08:17:13             🧑  作者: Mango

Perl Switch声明

perl switch语句用于从多个条件执行代码。 perl中没有大小写或switch语句。相反，我们使用“何时”代替大小写，“使用给定”代替大小写。

perl语言中的switch语句的语法如下：

given(expression){  
when (value1)
{//code to be executed;}  
when (value2)
{//code to be executed;} 
when (value3)
{//code to be executed;}
default
{//code to be executed if all the cases are not matched.}    
}

Perl开关示例

让我们看一个简单的c语言switch语句示例。

use feature qw(switch say);
print "Enter a Number\n ";
chomp( my $grade = <> );
given ($grade) {
    when ('10') { say 'It is 10' ;}
    when ('20') { say 'It is 20' ;}
    when ('30') { say 'It is 30' ;}
    default { say 'Not 10, 20 or 30';}
}

输出：

Enter a Number
10
It is 10

Enter a Number
55
'Not 10, 20 or 30'