|
发表于 2011-11-9 22:06:28
|
显示全部楼层
sorry , 原来是大名鼎鼎的 Damian Conway 写的,没有看到, 主要是没看到介绍这个pm的,
是perl的标准模块之一,
perldoc Switch
NAME
Switch - A switch statement for Perl
VERSION
This document describes version 2.10 of Switch, released Dec 29, 2003.
SYNOPSIS
use Switch;
switch ($val) {
case 1 { print "number 1" }
case "a" { print "string a" }
case [1..10,42] { print "number in list" }
case (@array) { print "number in list" }
case /\w+/ { print "pattern" }
case qr/\w+/ { print "pattern" }
case (%hash) { print "entry in hash" }
case (\%hash) { print "entry in hash" }
case (\&sub) { print "arg to subroutine" }
else { print "previous case not true" }
}
BACKGROUND
[Skip ahead to "DESCRIPTION" if you don |
|