привет.
есть такой xml-файл:
<?xml version="1.0" encoding="KOI8-R"?>
<?xml-stylesheet type="text/xsl" href="/www/htdocs/xml/addr.xsl"?>
<books>
<book>
<title>...</title>
<author>Some author</author>
<ISBN>...</ISBN>
...
<contents>
<chapter id="1" title="Introduction">
...
</chapter>
</contents>
<availability value="1"/>
<price curr="rub.">940</price>
</book>
</books>и есть такой xslt-файл:
<?xml version="1.0" encoding="KOI8-R" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3c.org/1999/XSL/Transform" version="1.0">
<xsl:output method="html" encoding="KOI8-R" doctype-public="-//W3C//DTD HTML 4.0 Transitional//EN"/>
<xsl:template match="books">
<div style="border:1px solid black; background:#eeffee;">
...
<xsl:foreach select="//book">
<xsl:call-template name="book-head" />
</xsl:foreach>
</div>
</xsl:template>
<xsl:template name="book-head">
...
</xsl:template>
</xsl:stylesheet>
использую XML::LibXML и XML::LibXSLT (1.6).
Делаю, как в примере с CPAN-а:
use XML::LibXSLT;
use XML::LibXML;
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my ($stylesheet,$source,$style_doc);
eval{ $source = $parser->parse_file('/www/htdocs/xml/addr.xml'); };
if($@){print "Error1: $@"; return;}
eval {$style_doc = $parser->parse_file('/www/htdocs/xml/addr.xsl'); };
if($@){print "Error2: $@"; return;}
eval{ $stylesheet = $xslt->parse_stylesheet($style_doc); };
if($@){print "Error3: $@"; return;}
my $results = $stylesheet->transform($source) or die $!;
print $stylesheet->output_string($results);
и скрипт затыкается на 3м eval с такой ошибкой:
Error3: compilation error: file /www/htdocs/xml/addr.xsl line 2 element stylesheet xsltParseStylesheetProcess : document is not a stylesheet
ничего не могу понять... где грабли? ведь xsl переписывал из книжку и очень много раз перепроверял...
Ругается именно на <xsl:stylesheet ...>, хоть во второй строке он, хоть в десятой... пробовал разные варианты параметров, один фиг тот же результат... В любом случае, почему с параметрами version и xmlns:xsl, взятыми из книжки не работает?