diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2005-06-24 01:04:32 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2005-06-24 01:04:32 +0800 |
commit | 3e1adccc79b103308400861b7a22d0fc0bcd6351 (patch) | |
tree | 15a6b853de51d8a3c4e036c0af3f40793cc65db8 /ColaBBS_to_PttBBS/cntarticle.pl | |
parent | a545d2f4f3dc28c0b12d35b192ec1bcedce86e4b (diff) | |
download | pttbbs-not-maintained@4903.tar pttbbs-not-maintained@4903.tar.gz pttbbs-not-maintained@4903.tar.bz2 pttbbs-not-maintained@4903.tar.lz pttbbs-not-maintained@4903.tar.xz pttbbs-not-maintained@4903.tar.zst pttbbs-not-maintained@4903.zip |
enhancenot-maintained@4903
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/not-maintained@2863 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'ColaBBS_to_PttBBS/cntarticle.pl')
-rw-r--r-- | ColaBBS_to_PttBBS/cntarticle.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ColaBBS_to_PttBBS/cntarticle.pl b/ColaBBS_to_PttBBS/cntarticle.pl index 36419b5a..649aff00 100644 --- a/ColaBBS_to_PttBBS/cntarticle.pl +++ b/ColaBBS_to_PttBBS/cntarticle.pl @@ -23,6 +23,7 @@ sub convert $content < io($fn); $content =~ s/\r//gs; $content =~ s/^.*?m 作者 .*?m (.*\))\s+\S+? 信區 .*?m (\S+).*/作者: $1 看板: $2/m; + $content =~ s/^.*?m 作者 .*?m (.*\))/作者: $1/m; $content =~ s/^.*?m 標題 .*?m (.*?)\s+\S+m/標題: $1/m; $content =~ s/^.*?m 時間 .*?m (.*?)\s+\S+m/時間: $1/m; $content =~ s/^\e\[36m────────────────────────────────────────\e\[m\n//m; |