blob: 28e83d154b211a62aa08c98330160925c92061c4 (
plain)
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;
|