share/gcstar/xslt/applyXSLT.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use XML::LibXSLT;

my $xslfile = $ARGV[0];
my $xmlfile = $ARGV[1];

my $xslt = XML::XSLT->new($xslfile, warnings => 1);

$xslt->transform($xmlfile);
print $xslt->toString;

$xslt->dispose;