作者ppkliu (ppkliu)
看板perl
标题Re: [问题] perl当中的sub副常式可以传hash为引数吗?
时间Wed Jun 21 14:43:50 2006
※ 引述《ppkliu (ppkliu)》之铭言：
: 如题
: perl当中的sub副常式可以传hash为引数吗?
: 若不行，要怎麽解决比较好。
例如说这个sub function要怎麽改比较好?
###################################################################################################
sub Merge_key{
foreach $pkey (sort keys %XML_SR_hash) #GET XML key into merge key array
{
push @Mkey,$pkey;
}
foreach $pkey (sort keys %DR_SR_hash)
{
foreach $dkey(sort @Mkey)
{
if($dkey =~ $pkey) {$i++;last;}#print "$i Match $pkey\n";} #(match,set
match flag and break loop)
}
if($i == 0){push @Mkey,$pkey;} #(Search all array and Not match)
$i=0;
}
}
###################################################################################################
&Merge_key(%XML_SR_hash,%DR_SR_hash);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.66.19.129