作者pcjustin (写本快乐日记)
看板perl
标题[问题] 去除bbs变色字码
时间Sun Jan 14 21:32:05 2007
(修改版)
=============================
#!/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
1F：推 cole945:把(.*?)改成用[^m]*呢..把出现m的状况去除~ 01/14 23:12
2F：推 pcjustin:还是一样结果呢 01/15 00:11
3F：推 Andor:[前面的ESC(\033)也要去除喔 ^^ 01/15 01:26
4F：→ Andor:再就是用 print OUTPUT $_; 比较安全和高效吧﹖ 01/15 01:28
5F：推 pcjustin:成功了，发现原来是我在搞笑 01/15 09:17
6F：→ pcjustin:如果把文章贴到console，某几行会不见，改用读档就没事了 01/15 09:18
7F：→ pcjustin:谢谢楼上二位 ^^ 01/15 09:19
※ 编辑: pcjustin 来自: 125.232.5.242 (01/15 09:21)