作者sosojopoor (KeiDanX)
看板Perl
標題[問題] 判斷與取代
時間Mon Jun 30 19:14:25 2014
各位板上前輩大家好
小弟我剛接觸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), 來自: 42.70.4.121
※ 文章網址: http://webptt.com/m.aspx?n=bbs/Perl/M.1404126867.A.507.html
1F：推 abliou:2看不懂... 06/30 21:48
2F：→ sosojopoor:2是要判別關鍵字instanceRef後的"第一個空白"至"第一 07/01 09:30
3F：→ sosojopoor:個)"內的a-Z換成輸字, 換的規則如1 07/01 09:31
4F：推 abliou:可是看你的例子,rename後面的空白沒有被取代掉阿? 07/01 11:41
5F：→ sosojopoor:抱歉筆誤 2應該是instanceRef 07/01 13:35