※ 引述《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