-1

我正在使用这个这个答案来执行 XSLT 1.0 转换。我打算将输出保存在另一个 xml 文件中。因此，我补充说，

use strict;
use warnings;

use XML::LibXSLT;

my ($xmlfile, $xsltfile,$outfile) = qw/ example.xml trans.xsl out.xml /;

my $xslt = XML::LibXSLT->new;
my $stylesheet = $xslt->parse_stylesheet_file($xsltfile);
my $results    = $stylesheet->transform_file($xmlfile);

$stylesheet->output_file($results,$outfile);

这会产生以下错误，

Can't coerce UNKNOWN to string in entersub at $LongPath/XML/LibXSLT.pm line 485.

在网上查找，我能够找到这个提到类似内容的博客。

我错过了一些明显的东西吗？

更新

XML 文件

<?xml version="1.0"?>
<?xml-stylesheet type="xsl" href="trans.xsl"?>
<Article>
  <Title>My Article</Title>
  <Authors>
    <Author>Mr. Foo</Author>
    <Author>Mr. Bar</Author>
  </Authors>
  <Body>This is my article text.</Body>
</Article>

XSL 文件

<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">    
  <xsl:output method="xml"/>    
  <xsl:template match="/">
    Article - <xsl:value-of select="/Article/Title"/>
    Authors: <xsl:apply-templates select="/Article/Authors/Author"/>
  </xsl:template>    
  <xsl:template match="Author">
    - <xsl:value-of select="." />
  </xsl:template>    
</xsl:stylesheet>
4

1 回答 1

0

我最终自己发现了问题。看起来

$stylesheet->output_file($results,$outfile);

语句无法使用提供的路径创建文件。该路径几乎没有不存在的目录。因此，我最终做了

my $dir = dirname($outfile);
mkpath($dir);

之后我能够将输出保存到$outfile.

于 2016-06-28T05:45:11.020 回答