每一种技术都有其诱人之处。
分类: PERL
2014-06-03 15:30:53
#!/usr/bin/perl
use strict;
use Switch;
my $val = "haha";
my %hash = ("haha" => "weibiao");
my @array;
switch ($val)
{
case 1 { print "number 1" }
#是不是和数字相等
case "a" { print "string a" }
#是否 eq "a"是不是和字符串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" }
#查找HASH中有无$val这个键值
case (\&ha) { print "arg to subroutine" }
#这里的意思是把$val传给函数做参数
#目前还没有想通这个有什么用
else { print "previous case not true" }