关于perl中如何实现switch结构

众所周知，perl中没有内置的switch结构，但是switch确实很有用，它提供了一个简单明了的结构体，可以避免烦琐的if  else。既然perl不支持switch结构，我们可以自己写一个switch结构。我的switch结构如下：

print("Enter command:");
while(<>)
{
    SWITCH:{
           /run/ && do{
               print("match:".$_."/n");
               last SWITCH;
           };

           /q/ && do{
               print("match:".$_."/n");
               exit;
           };

    DEFAULT:        $message = "No match:$_/n";
                    print($message."/n");
    }

    print("Enter command:");
}

实现机制很简单，就是添加一个SWITCH标签，在SWITCH中以模式匹配的方式来实现case语句。

last SWITCH是退出当前SWITCH语句块儿。

 

Sylvester

[e-mail]