utils/pre-trans.pl

   1 #!/usr/bin/env perl
   2 #
   3 # 将标题替换为中文和英文混合的标准标题
   4 # 将签名添加在文档最后
   5 #
   6 while (<>){
   7         s/^\.SH "?SYNOPSIS"?/\.SH "总览 SYNOPSIS"/;
   8         s/^\.SH "?DESCRIPTION"?/\.SH "描述 DESCRIPTION"/;
   9         s/^\.SH "?SEE ALSO"?/\.SH "参见 SEE ALSO"/;
  10         s/^\.SH "?AUTHOR"?/\.SH "作者 AUTHOR"/;
  11         s/^\.SH "?KEYWORDS"?/\.SH "关键字 KEYWORDS"/;
  12         s/^\.SH "?OPTIONS"?/\.SH "选项 OPTIONS"/;
  13         s/^\.SH "?EXAMPLE"?/\.SH "范例 EXAMPLE"/;
  14         print
  15 }
  16 print <<EOF;
  17
  18 .SH "[中文版维护人]"
  19 .B 姓名 <email>
  20 .SH "[中文版最新更新]"
  21 .BR yyyy.mm.dd
  22 .SH "《中国linux论坛man手册翻译计划》:"
  23 .BI http://cmpp.linuxforum.net
  24 EOF