Perl xslt转换输出到文件

我使用这个答案来执行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>

最后我自己发现了这个问题。看来

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

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

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

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

相关内容

最新更新

热门标签：