perl基础：传递hash类型参数

goodmm

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 $state style=/"width=100%/">/n";
　　foreach my $key(sort keys %$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 disabled> <option value=6>Harm</option> <option value=7>Trojan</option> <option value=8 selected>Worm</option> <option value=9>Hack</option> </select>