perl5:模拟SWITCH语句

我们知道,switch语句叫做开关语句或选择语句,它可以用来设计多路分支选择结构.可是在PERL5中并没有提供单独的SWITCH语句,但是我们可以利用语言本身提供的其他语句来模拟实现,下面给出实现形式:

SWITCH:{

if (condition expression 1)

{

block of statement

last SWITCH;

} #END condition 1

if (condition expression 2)

{

block of statement

last SWITCH; #退出SWITCH,其后的语句都不会被执行

} #END condition 2

...

if (condition expression n)

{

block of statement

last SWITCH;

} #END condition n

DEFAULT: #不是必须的

{

block of statement

last SWITCH;

} #END dedault

} #end switch

在上面的例子中使用了标号,如"SWITCH:"和"DEFAULT:",它是用来表明脚本中的指定行的,常用于语句块的开头.规则如下:

1. 标号必须一字符开头,后可以跟字母和数字,最后必须以冒号":"结尾;

2. 标号不能使用保留字

注意:标号区分大小写.