※ 引述《ppkliu (ppkliu)》之銘言：
: ※ 引述《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);
my @Mkey = keys %{{%XML_SR_hash, %DR_SR_hash}};
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 143.89.144.107