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. 标号不能使用保留字

注意:标号区分大小写.

原文: http://www.cnblogs.com/lbk/archive/2004/11/29/70218.html