perl基础：传递hash类型参数

最新推荐文章于 2025-09-27 16:02:12 发布

转载最新推荐文章于 2025-09-27 16:02:12 发布 · 5.8k 阅读

标签

#perl #warnings #c

收录于

Perl 开发专栏收录该内容

5 篇文章

订阅专栏

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 style="width=100%">
<option value=6>Harm</option>
<option value=7>Trojan</option>
<option value=8 selected>Worm</option>
<option value=9>Hack</option>
</select>