привет.
есть такой 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, взятыми из книжки не работает?
Привет!
Убери в XML-файле вторую строку.
>Привет!
>Убери в XML-файле вторую строку.Нет, не помогло.
Парсер XML не ругается, когда парсит xml и xsl файлы.
Ругается парсер XSLT на <xsl:stylesheet ...>my $xslt = XML::LibXSLT->new();
...
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;}
^^^^^^ вот здесь ругается.
То же самое будет, если парсить xsl не с помощью $parser->parse_file, а с помощью $xslt->parse_stylesheet_file("/www/htdocs/addr.xsl")...
решил проблему:
><xsl:stylesheet xmlns:xsl="http://www.w3c.org/1999/XSL/Transform" version="1.0">
правильно
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
w3.org а не w3c.org