Re: (Updates) Re: XSLT vs Templating, Part 2

I've also added code that uses XML::XSLT , which surprising is VERY bad at least as I've used it (did I use it wrong? I couldn't get a pure XML DOM document to work with it...)

Heh, I discovered that there was an evil interaction between XML::Generator::DBI and XML::Handler::BuildDOM - I have sent patches to both Matt and Tim ;-}

I'll update this later with an example of how you might do this when I get a minute

Update: Matt has applied a fix to XML::Generator::DBI and this code now works as billed :


#!/usr/bin/perl -w

use strict;
use XML::XSLT;
use XML::Generator::DBI;
use XML::Handler::BuildDOM;
use XML::DOM;
use DBI;


my $ya = XML::Handler::BuildDOM->new();
my $dbh = DBI->connect("dbi:Informix:tdcusers",'','',{ChopBlanks => 1}
+);
my $generator = XML::Generator::DBI->new(
                                         Handler => $ya,
                                         dbh => $dbh
                                        );

my $style =<<EOFOO;
<?xml version="1.0"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" versi
+on="1.0">
<xsl:output encoding = "iso-8859-1"/>
 <xsl:template match = "select">
   <html>
     <head>
       <title>
         Test
       </title>
     </head>
     <body>
       <table>
         <xsl:for-each select="row">
           <tr>
             <td>
               <xsl:value-of select="prefix" /> 
             </td>
             <td>
               <xsl:value-of select="code" /> 
             </td>
             <td>
               <xsl:value-of select="ctext" /> 
             </td>
           </tr>
         </xsl:for-each>
       </table>
     </body> 
   </html>
 </xsl:template>
</xsl:stylesheet>
EOFOO

my $stylesheet = XML::XSLT->new($style);

my $sql = 'select * from text_codes';

my $dom = $generator->execute($sql);

$stylesheet->transform(Source => $dom);

$stylesheet->toString();
[download]

You will obviously want to use your own database and an appropriate stylesheet :)

/J\

Comment on Re: (Updates) Re: XSLT vs Templating, Part 2 Download Code


XP is just a number
	PerlMonks