作者jeffreychen ()
看板Perl
标题[问题] 正规表示法
时间Mon Mar 5 13:46:57 2012
请教如何将下面问题用perl自动化
一个aaa的档案里面有很多字串如下
$tset tset1 > 1000000000011L1011000110H10L0H0H00H0HHH000001000000100010000000000000000000000LL00000010000010000001000000001000000000100000L00101001000000000000000001000H0H000000110000001L1000M001HL0XXH000LXXXXXXXLLLLXXXXXHLLHLLHHHXLLLLLLLLLLHL1LLLLLLLLLHL1LHLLLLLLLLLLLLLLLLLLLLLHLLLL1LHLLLLLLLLL1LHLLLLLLLLLML1L; /*1000599, 20011980.000nS*/
.
.
.
.
.
.
.
.
$tset tset1 > 0000000000000H1011000110H10L0H0H00H0HHH000001000000000010000000000000000000000LL00000010000100000100000000100000000010000000H00101001000000000000000001000H0H000000110000000L1000M001HL0XXH000LXXXXXXXLLLHXXXXXHLHLLLLHHXLLLLLLLLLLHL1LLLLLLLLLHL1LHLLLLLLLLLLLLLLLLLLLLLHLLLL1LHLLLLLLLLL1LHLLLLLLLLLML1L; /*1000598, 20011960.000nS*/
我想要些行所有第十个数字0都换成1
请问如何写ㄋ?
ps: 对perl不太熟请大大指导, 万分感恩
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.184.238
1F：推 scwg: perl -pe 'substr($_, 10, 1) = 1' 03/05 14:32
2F：→ scwg:如果你习惯从 1 开始数请把 10 改成 9 03/05 14:33
3F：→ scwg:如果第十个位子不是零的时候不换成 1: 'substr... =~ s/0/1/' 03/05 14:41