作者Andor (柠檬汁)
看板perl
标题Re: [问题] perl当中的sub副常式可以传hash为引数吗?
时间Wed Jun 21 15:18:37 2006
※ 引述《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