Re: [問題] 判斷與取代

看板Perl作者AntaresStar時間10年前 (2014/07/01 22:04)推噓7(7推 0噓 5→)

留言12則, 4人參與討論串3/3 (看更多)

剛剛稍早po的不對重po一次 %replace_list可以這樣生 (我改叫%h 短一點) @h{'a' .. 'z'} = @h{'A' .. 'Z'} = (1 .. 9, map {0} 1 .. 17); 然後replace_abc_123可以這樣寫 $output = join "", map {exists $h{$_} ? $h{$_} : $_} split //, $string; ※ 引述《Neisseria (Neisseria)》之銘言： : 提供某一種解法，參考看看... : 假設一個雜湊 %replace_list，裡面放的是字母和數字的對應 : 即 a=1 b=2 c=3 ... : 寫一個函數來替換字母，在轉換前，先將字母轉小寫 : sub replace_abc_123 { : my $string = shift; : my $output = ""; : for my $e (split //, $string) { : if ($e =~ /[[:alpha:]]/) { : $output .= $replace_list{lc $e}; : } : else { : $output .= $e : } : } : return $output; : } : 然後用常規表示式將要替換的地方抓出來 : 用剛寫好的函數來替換掉即可 : 完整的例子可看連結 http://pastebin.com/Cf9Pk1hV : 參考看看囉 : ※ 引述《sosojopoor (KeiDanX)》之銘言： : : 各位板上前輩大家好 : : 小弟我剛接觸perl有些問題想請教 : : 主要是判斷&取代的問題 : : -----------原始碼----------- : : (port I0 (direction INPUT)) : : (instance (rename ABC_1def "CBA.gh3") (viewRef X) : : (portRef I0 (instanceRef ABC_1def)) : : (portRef I1 (instanceRef iJk_1def)) : : (port LO (direction OUTPUT)) : : (portRef O (instanceRef ABC_1def)) : : -----------判斷&修改後----------- : : (port I0 (direction INPUT)) : : (instance (rename 123_1456 "321.783") (viewRef X) : : (portRef I0 (instanceRef 123_1456)) : : (portRef I1 (instanceRef 901_1456)) : : (port LO (direction OUTPUT)) : : (portRef O (instanceRef 123_1456)) : : 有兩個關鍵字分別為"rename"和"instanceRef" : : 1.rename : : 判斷到有rename後將第一個與第二個空白鍵中的a-Z換成數字 : : 若超過9則為0 也就是a/A=1 b/B=2 ... i/I=9 j/J=0 : : 同時隨後兩個"內的字串依照上述取代 : : 2.instanceRef : : 判斷到有rename後將第一個空白鍵與第一個)內的a-Z換成數字 : : 取代的規則與前述相同 : : 嘗試使用if判斷與tr : : 但一直卡在只取代第一與第二個空白鍵內的a-Z 這邊 : : 請問有人知道該如何處理嗎? 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.43.171.239 ※ 文章網址: http://www.ptt.cc/bbs/Perl/M.1404223470.A.D55.html