打印实际字符而不是 NCR 的字符

Question

我想打印一个XML文档，而不需要将其中包含的所有unicode都缩减为丑陋的NCR。这是一个示例：

use XML::LibXML;
my $parser = XML::LibXML->new();
my $doc = $parser->load_xml(string => '<xml>ＦＵＬＬ ＷＩＤＴＨ</xml>');
print $doc->toString();

这将打印以下内容：

<?xml version="1.0"?>
<xml>&#xFF26;&#xFF35;&#xFF2C;&#xFF2C; &#xFF37;&#xFF29;&#xFF24;&#xFF34;&#xFF28;</xml>

非常非常难看，很难阅读（除非在浏览器或其他地方查看）。

如何使文档打印真实字符，并具有utf-8（或任何其他编码）声明？

Answer 1

XML:：LibXML:：Parser返回的对象类型是XML:：LibXML:：Document，它有一个setEncoding方法：

$doc->setEncoding('utf-8');

现在脚本打印如下：

<?xml version="1.0" encoding="utf-8"?>
<xml>ＦＵＬＬ ＷＩＤＴＨ</xml>