打印实际的字符而不是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 ::文献，其具有setEncoding方法：

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

现在脚本打印这样的：

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