Re: [問題] 判斷與取代

[AntaresStar ()]

剛剛稍早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
推 CindyLinz:map {0} 1 .. 17 的部分可以寫作 (0) x 17
→ CindyLinz:exists $h{$_} ? $h{$_} : $_ 剛好可以寫作 $h{$_}//$_
→ CindyLinz:因為 %h 裡面有放的東西都不是 undef
推 CindyLinz:然後 join "" .. split //, $string 可以改作:
→ CindyLinz:$output = $string =~ s/[a-zA-Z]/$h{$&}/gr;
推 cutekid:想請教: $h{$_}//$_ 是什麼意思呢 :)
推 abliou:樓上不介意的話,可以看看小弟的筆記 http://goo.gl/JBkKQW
推 CindyLinz:// 是看左邊有沒有 defined() 有的話用左邊, 不然用右邊
推 cutekid:推 a 大筆記及 C 大 解說。謝謝二位 :)
→ AntaresStar:括號0真的很微妙  我早先試是用0 x 17就不行
推 CindyLinz:(0) 是 list, 0 是 scalar 呀~ x 配 list 是 repeat 它
→ CindyLinz:0 x 17 的話是 scalar, 那是把 0 這個字接 N 次的字串