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'=>'*','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;

}

产生的结果如下：

秒客网