Docbook XML文件前置处理Perl程序，解决回车，空格等等影响FOP排版输出的问题

Docbook的中文问题果然层出不穷，现在都有点后悔采用Docbook格式写论文了，下面一段Perl程序通过删除<book></book>标签下的所有空格，试图解决FOP中文回车、空格影响排版输出的问题。

不过即使这样，FOP还是会傻傻的把中文标点放在行首，这个问题挺麻烦的，可能是<xsl:param name="hyphenate">false</xsl:param>惹得祸，但是如果启用docbook-xsl又会报Couldn't find hyphenation pattern错……

不管如何，现在起码我不用把<para></para>一段文字写成一行了，Oxygen XML 编辑器只要启用text wrap自动折行就不再同时提供代码折叠功能，而没有代码折叠，又必须采用<!ENTITY preface SYSTEM "preface.xml">来管理长文档，一旦采用，preface.xml就作为实体，做不到实时文件架构验证了，我肯定不愿意放弃Oxygen XML Editor的实时验证文档功能，那就只有采用新的XInclude方法了，但是FOP自带的Xalan 2.7.0 XML XSLT引擎目前似乎还没开始支持这个XInclude功能……

#!/bin/env perl
use strict;
use warnings;
use utf8;


open(F, $ARGV[0]) or die "Can't open file $ARGV[0]: $!\n";


my $in_book = 0;
  

READLINE:
while (<F>)
{
  

if ($in_book == 0)
  {
      

if(/<book>/)
      {
          

$in_book = 1;
      }
      s

#http://www.docbook.org/xml/(.*)/docbookx\.dtd#../docbook-xml-$1/docbookx\.dtd#;
      print $_;
  }
    

else {
      s
/\s+//g;
      
print $_;
    }
}

丁丁 2007-02-27 04:56 发表评论