Question

我有一个动态创建的XML。但是，我想在其中添加对XSLT文件的引用，以便能够在Mozilla中将XML文件呈现为HTML。

我希望我的最终XML能够像这样开始：

<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/xsl" href="xslt_stylesheet_file.xsl"?>
<root_node>
</root_node>

我无法安装XML :: LibXSLT，因此这不是解决方案。另一个解决方案是将XML写入文件，将其作为常规文件打开并添加XSLT引用 - 但这对我来说似乎不对。

这有优雅的解决方案吗？

编辑：

添加了一些代码

use strict;
use warnings;
use XML::LibXML;

my $final_xml = XML::LibXML::Document->new('1.0','utf-8');

 my $root_node = $final_xml->createElement('root'); 

 $final_xml->setDocumentElement( $root_node );


open (MYFILE, '>final.xml' );
 print MYFILE $final_xml->toString();
close (MYFILE);

输出是：

<?xml version="1.0" encoding="utf-8"?>
<root/>

Answer 1

use strict;
use warnings;
use XML::LibXML;

my $final_xml = XML::LibXML::Document->new('1.0','utf-8');

my $pi = $final_xml->createProcessingInstruction("xml-stylesheet");
$pi->setData(type=>'text/xsl', href=>'xslt_stylesheet_file.xsl');
$final_xml->appendChild($pi);

my $root_node = $final_xml->createElement('root'); 
$final_xml->setDocumentElement($root_node);

$final_xml->toFile("final.xml")

=＆GT;

<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet href="xslt_stylesheet_file.xsl" type="text/xsl"?>
<root/>

Answer 2

如果您只想生成XML，我会使用XML::Writer。然后您可以使用xmlDecl方法添加声明。这是一个比XML::LibXML更像SAX的API，但通常在生成文档时不像处理文档时那么多。此外，XML::Writer不依赖于libxml2和libxslt，因此安装起来要容易得多。

仅使用XML：LibXML在Perl中添加对XSLT的引用

2 个答案: