perl方法传递hash参数

最新推荐文章于 2021-06-22 17:11:14 发布

kevin3061

最新推荐文章于 2021-06-22 17:11:14 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： perl开发

本文链接：https://blog.youkuaiyun.com/kevin3061/article/details/25190047

perl开发专栏收录该内容

3 篇文章

订阅专栏

本文介绍了Perl语言中如何正确地传递hash类型的参数到子函数，包括直接传递单个hash参数的方法，以及如何通过引用传递多个包含hash类型的参数。文章还提供了一个具体的示例程序，展示了如何使用这些技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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>