[問題] 去除bbs變色字碼
(修改版)
=============================
#!/usr/perl
open IN, "<in.txt";
open OUTPUT, ">output.txt";
#open IN, ">in.txt";
while (<IN>) {
s/\033\[(.*?)m/ /g;
printf OUTPUT $_;
}
close IN;
close OUTPUT;
=============================
想寫個去除bbs變色字碼的小程式
可是greedy好像無法正常作動
超過二個 [m 的行就會被刪掉
想請問大家，是我程式寫錯
還是有什麼方法成功
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.217.102.25
推
01/14 23:12, , 1F
01/14 23:12, 1F
推
01/15 00:11, , 2F
01/15 00:11, 2F
推
01/15 01:26, , 3F
01/15 01:26, 3F
→
01/15 01:28, , 4F
01/15 01:28, 4F
推
01/15 09:17, , 5F
01/15 09:17, 5F
→
01/15 09:18, , 6F
01/15 09:18, 6F
→
01/15 09:19, , 7F
01/15 09:19, 7F
※ 編輯: pcjustin 來自: 125.232.5.242 (01/15 09:21)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
