PTT數位生活區 / Perl

[問題] 正規表示法

看板Perl作者時間13年前 (2012/03/05 13:47), 編輯推噓1(1推 0噓 2→)
留言3則, 1人參與, 最新討論串1/3 (看更多)
請教如何將下面問題用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
推
03/05 14:32, , 1F
perl -pe 'substr($_, 10, 1) = 1'
03/05 14:32, 1F
→
03/05 14:33, , 2F
如果你習慣從 1 開始數請把 10 改成 9
03/05 14:33, 2F
→
03/05 14:41, , 3F
如果第十個位子不是零的時候不換成 1: 'substr... =~ s/0/1/'
03/05 14:41, 3F
‣ 更多 jeffreychen 的文章
文章代碼(AID): #1FL5DKfJ (Perl)
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 3 篇)：
排序： 最舊先 | 最新先 | 留言數
2
7
[問題] 正規表示法
bwtalk
12年前, 07/02
在新視窗開啟完整討論串 (共3篇)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 jeffreychen 的文章
文章代碼(AID): #1FL5DKfJ (Perl)