perl中没有switch可以采用hash一样来实现

perl中时没有像java一样的switch的 

要想选择性的请参考代码（新人勿喷。。。。）

一采用hash原理

my $r_hash={'1'=> 1,'2'=>2};

用法

my $input=<STDIN>;#键盘输入

#中间可以加unless判断输入是否正确

print  $r_hash->{$input};#判断并打印信息

#本人在银行外包公司工作perl常用语言 有兴趣可以邮箱1936713367@qq.com

代码

#!/usr/bin/perl


#取大值
sub max
{


my ($a,$b)=@_;


if($a>=$b)
{


return $a;
}


return $b;


}
#取小值
sub min
{
my ($a,$b)=@_;


if($a>=$b)
{
return $b;


}


return $a
}




my $r_hash={
'1' => max(5,10),
'2' => min(5,10)


};


sub main
{
LABLE0: #采用标签
my $input=<STDIN>;
chomp($input);
unless($input=~ /[12]/)
{
print "errow";
goto LABLE0;

}

print $r_hash->{$input};

}


main();