Re: [問題] perl當中的sub副常式可以傳hash為引數嗎?
※ 引述《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
討論串 (同標題文章)