关于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

youhaodeyi@gmail.com

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值