perl基础:传递hash类型参数
2013-10-10 13:14
375 查看
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>
如: 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>
相关文章推荐
- perl基础:传递hash类型参数
- perl 子程序传递参数不同类型变量 设置
- 重读编程思想-初始化清理-基础数据类型参数传递给过载方法
- JavaSE 基础 第27节 对象类型的参数传递
- 基础才是重中之重~值类型与引用类型作为参数传递的不同表现
- 检验 java 基础数据类型参数传递方式
- c#基础语言编程-按值类型和引用类型传递参数
- c#基础语言编程-按值类型和引用类型传递参数
- JavaSE8基础 String是特殊的引用类型,在函数的参数传递中只能把它当做 值类型来看待
- C#学习基本概念之传递值类型参数(一)
- 【c基础】c语言 变量 数组元素 数组名做函数参数传递
- 引用类型参数的按值传递
- Java参数传递类型有几种
- js 基本类型和引用类型 变量复制 参数传递
- 【入门基础 Java参数传递方式】
- java基础 传递参数
- Swift基础语法: 31 - Swift的初始化, 默认属性值, 初始化参数, 内部和外部参数, 可选属性类型
- JNI编程之如何传递参数(二)——数组类型的传递
- SpringMVC第五篇——接收页面参数(基础类型)
- 关于SSM中的Controller传递参数的类型的问题