diff options
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; |