Re: [問題] 正規表示法

看板Perl作者jeffreychen時間13年前 (2012/03/05 20:08)推噓0(0推 0噓 0→)

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

※ 引述《jeffreychen ()》之銘言： : 請教如何將下面問題用perl自動化 : 一個aaa的檔案裡面有很多字串如下 : $tset tset1 > 1000000000011L1011000110H10L0H0H00H0HHH000001000000100010000000000000000000000LL00000010000010000001000000001000000000100000L00101001000000000000000001000H0H000000110000001L1000M001HL0XXH000LXXXXXXXLLLLXXXXXHLLHLLHHHXLLLLLLLLLLHL1LLLLLLLLLHL1LHLLLLLLLLLLLLLLLLLLLLLHLLLL1LHLLLLLLLLL1LHLLLLLLLLLML1L; /*1000599, 20011980.000nS*/ : . : . : . : . : . : . : . : . : $tset tset1 > 0000000000000H1011000110H10L0H0H00H0HHH000001000000000010000000000000000000000LL00000010000100000100000000100000000010000000H00101001000000000000000001000H0H000000110000000L1000M001HL0XXH000LXXXXXXXLLLHXXXXXHLHLLLLHHXLLLLLLLLLLHL1LLLLLLLLLHL1LHLLLLLLLLLLLLLLLLLLLLLHLLLL1LHLLLLLLLLL1LHLLLLLLLLLML1L; /*1000598, 20011960.000nS*/ : 我想要些行所有第十個數字0都換成1 : 請問如何寫ㄋ? : ps: 對perl不太熟請大大指導, 萬分感恩我把問題在表達完整一點麻煩大大幫我解答有一個檔案內容如下: vector ((xx_xi_rtc, xx_pwc_rstinb, xx_pwc_pc_ref, xx_pwc_wkup, xx_pwc_pseq1, xx_pwc_wkup1, xx_pwc_pseq2, xx_pwc_wkup3)) $tset tset1 > 00000000; /*0, 0.00nS*/ $tset tset1 > 00010000; /*0, 0.00nS*/ $tset tset1 > 00001000; /*0, 0.00nS*/ $tset tset1 > 00000100; /*0, 0.00nS*/ 八個vector 名為xx_xi_rtc xx_pwc_rstinb xx_pwc_pc_ref xx_pwc_wkup xx_pwc_pseq1 xx_pwc_wkup1 xx_pwc_pseq2 xx_pwc_wkup3 相對應值為 00000000 00010000 00001000 00000100 若輸入xx_xi_rtc則把四個test test1 中所相對應xx_xi_rtc的0都換成1 請問這樣該如何寫ㄋ? ps: 上面是簡化例子 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 60.248.184.238