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'