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();