XML to SGML or xsl vs DTD confused

Plankton has asked for the wisdom of the Perl Monks concerning the following question:

Friends,

I am working a project where I need to generate documents from DocBook/XML (xsl) to mulitple formats. I discovered that on Linux, at least, I can use docbook2* (i.e. docbook2html and docbook2rtf), but these commands only take DocBook/SGML (DTD) files as input. I changed one of the DocBook/XML files to a DocBook/SGML by hand and here is the pertinent sdiff ...

<?xml version="1.0"?>                                         | <!DOCT
+YPE book PUBLIC "-//OASIS//DTD DocBook V4.2//EN" [
<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//E | <!ENTI
+TY nwalsh "Norman Walsh">
"/usr/share/sgml/docbook/xml-dtd-4.2-1.0-17/docbookx.dtd">    | ]>
<article>                                                     | <book>
        <articleinfo>                                         |       
+  <bookinfo>
                <title>sudo Use and Administration on RH9</ti         
+          <title>sudo Use and Administration on RH9</ti
        </articleinfo>                                        |       
+  </bookinfo>
                                                              > <artic
+le>
        <sect1> <title>Introduction</title> <para>                    
+  <sect1> <title>Introduction</title> <para>
This document describes how to use and administor sudo on RH9   This d
+ocument describes how to use and administor sudo on RH9
                </para><para>                                         
+          </para><para>
blah                                                            blah
...
        </sect1>                                                      
+  </sect1>
</article>                                                      </arti
+cle>
                                                              > </book
+>
[download]

... I know that looks like hell in code tags but I hope it looks better if you click dl/code link :)

I have a ton of these docs to do this too, so hand editting all of them is out of the question. My question is, "Is there some cool XML/XSLT/DTD/something-or-other Perl module I could use to make these changes for me or will I have to "roll-my-own" translator?". You know something awful and buggy like ...

#!/usr/bin/perl -w
use strict;
my $DTD_VER = "4.2"
                                                                      
+                                                                     
+                  
my $firstLine = <>;
                                                                      
+                                                                     
+                  
print $firstLine if $firstLine !~ /^\<\?xml/;
while(<>) {
        s/artlicle/book/g;
        s/DocBook XML V\d\.\d\.\d/DocBook V$DTD_VER/g;
        ...
        print $_;
}
print "</book>\n";
[download]

You would think with all the XML hype somebody has done this before or am I just barking up the wrong tree here?

Plankton: 1% Evil, 99% Hot Gas.

Comment on XML to SGML or xsl vs DTD confused Select or Download Code

Replies are listed 'Best First'.

Re: XML to SGML or xsl vs DTD confused
by iburrell (Chaplain) on Aug 12, 2004 at 18:15 UTC

Look at http://www.docbook.org/ or http://docbook.sourceforge.net/. You might want to ask on their mailing lists since they have the experience.

[reply]

Re^2: XML to SGML or xsl vs DTD confused

by Plankton (Vicar) on Aug 12, 2004 at 20:35 UTC

bash-2.05b$ cat xml2sgml.pl
#!/usr/bin/perl -w
use strict;
my $doctypePat = quotemeta ( '<!DOCTYPE article PUBLIC "-//OASIS//DTD 
+DocBook XML V4.1.2//EN"' );
my $fl;
 
$fl = <>;
 
print $fl if $fl !~ /^\<\?xml/;
 
while(<>) {
        if (/$doctypePat/) {
                print <<EOT;
<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook V4.2//EN" [
<!ENTITY nwalsh "Norman Walsh">
]>
EOT
                <>;
                next;
        }
        s/article/book/g;
        if ( /\<\/bookinfo>/ ) { print $_; print "<article>\n"; next; 
+}
        if ( /\<\/book>/ ) {  print "</article>\n"; print $_; next; }
        print $_;
}
[download]