Start working on a SAX version of the Perl stuff. Very broken yet...

[xml-template] / perl-sax / simple.pl

diff --git a/perl-sax/simple.pl b/perl-sax/simple.pl
new file mode 100644 (file)
index 0000000..1e371fd
--- /dev/null
+++ b/perl-sax/simple.pl
@@ -0,0 +1,8 @@
+#! /usr/bin/perl
+use XML::TemplateSAX;
+
+my $doc = XML::TemplateSAX::process_file('../xml/simple.xml', {
+       'title' => 'A very basic example',
+       '#hello' => 'Hello world!'
+});
+print $doc;