XML do XSLT za pomoca perla

ten kod parsuje xml do xslt, tylko kompletnie nie wiem jak go zapisac (z jakim rozszerzeniem) i jak to uruchomic

ma ktos pomysl ? :)

z gory dzieki

 
#!/usr/bin/perl -w

# import potrzebnych bibliotek

use strict;

use XML::LibXSLT;

use XML::LibXML;

use CGI qw/:standard/;

my $sciezka="/home/ti2011/login/public_html/xmlxsl/";

my $parser=XML::LibXML->new();

my $xmlfile = "firmy.xml";

my $xslfile = "firmy.xsl";

my $xmlsrc=$parser->parse_file($sciezka.$xmlfile);

my $xsltstyle=$parser->parse_file($sciezka.$xslfile);

my $xslt=XML::LibXSLT->new();

my $style=$xslt->parse_stylesheet($xsltstyle);

my $out=$style->transform($xmlsrc);

print header(-charset=>'utf-8'),

start_html('xml xslt transformacja');

print $style->output_string($out);

print end_html;

exit;

Zapisać plik rozszerzeniem .py, dodać atrybut +x do tego pliku i wykonać poprzez ./plik.py.