perl方法传递hash参数

perl基础：传递hash类型参数

1 如果是 只有一个参数要传，且是hash，最直接想到的办法就是像传其他类型参数一样直接传，

如:    subFuntion(%hash1);

2 如果有 多于一个参数要传，这里假设只有一个参数的类型是hash的，并把hash放到最前面，

如: subFuntion(%hash1, $var2);

这样做结果是错误的，结果是子函数把第2个参数$var2合并到第一个hash上面去，不是你希望得到的

若把hash放在最后面的位置上，就可以了，代码如下：

&subFuntion($var, %hash);

sub subFuntion()

{

      my($first, %lash) = @_;

      ……

}

如果这样做，你的程序会花费太大的代价，下面接着的是 引用的方法，这样不会限制你有几个hash类型的参数，也不限制参数的位置：

#! c:/Perl/bin/perl.exe
use strict;
use warnings;

my  %hash2 =('7'=>'Trojan','8'=>'Worm','9'=>'Hack','6'=>'Harm');

my $str =&strCtlSelect( \ %hash2,"ixigua","8","disabled",);        #“\%”是必须的

print $str;

sub strCtlSelect()
{
my ( $hash,$name,$sel,$state,) =@_;                                                                  #“$”是必须的
my $str = "<select name=$name $statestyle=/"width=100%/">/n";
foreach my $key( sortkeys   %$hash){                                                                    #“%$”是必须的
    if ($key == $sel) {
      $str .="<option value=$key selected> $hash->{$key }</option>/n"; #“$”及“->”是必须的
    }else {
      $str .="<option value=$key> $hash->{$key }</option>/n";
    }
}
$str .= "</select>";
return $str;
}

产生的结果如下：
<select name=ixigua disabledstyle="width=100%">
<optionvalue=6>Harm</option>
<optionvalue=7>Trojan</option>
<option value=8selected>Worm</option>
<optionvalue=9>Hack</option>
</select>