December 2016 Archives

Yak Shaving: XML::Writer edition

I am messing around trying to fix the QIF files that Lloyds TSB CC statements are presented as, and needed to write XML.

XML::Writer seems like a reasonable solution, but I’m not OK with writing a static header by using 300 calls to $writer->startTag(‘blah’).

This seems a good job for the computer; specifically for a SAX parser which will happily parse non-balanced XML. Anyway, the result is:

my $writer = XML::Writer::Lazy->new( OUTPUT => 'self');
my $title  = "My Title!";

$writer->lazily(<<"XML");
    <html>
        <head>
            <title>$title</title>
    </head>
    <body>
        <p>Pipe in literal XML</p>
XML

$writer->startTag( "p", "class" => "simple" );
$writer->characters("Alongside the usual interface");
$writer->characters("123456789");
$writer->lazily("</p></body></html>");

https://metacpan.org/pod/XML::Writer::Lazy

Which is considerably lazier, and allows you to intersperse actual XML::Writer commands with chunks of XML string and have it do largely the right thing.

About Peter Sergeant

user-pic I blog about Perl.