Acme-SList-XSLT
view release on metacpan or search on metacpan
lib/Acme/SList/XSLT.pm view on Meta::CPAN
4849505152535455565758596061626364656667686970717273747576777879808182838485868788899091
my
$source
=
$parser
->parse_string(
q{<?xml version="1.0" encoding="iso-8859-1"?>
<index>
<data>aaa</data>
<data>bbb</data>
<data>ccc</data>
<data>ddd</data>
</index>
}
);
my
$style_doc
=
$parser
->parse_string(
q{<?xml version="1.0" encoding="iso-8859-1"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" indent="yes" encoding="iso-8859-1"/>
<xsl:template match="/">
<html>
<body>
<title>Test</title>
Data:
<hr/>
<xsl:for-each select="index/data">
<p>Test: *** <xsl:value-of select="."/> ***</p>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
}
);
my
$stylesheet
=
$xslt
->parse_stylesheet(
$style_doc
);
my
$results
=
$stylesheet
->transform(
$source
);
$stylesheet
->output_string(
$results
);
=head1 AUTHOR
Klaus Eichner <klaus03@gmail.com>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009-2011 by Klaus Eichner
All rights reserved. This program is free software; you can redistribute
( run in 0.309 second using v1.01-cache-2.11-cpan-eab888a1d7d )