如何使 Perl 的 XML::Libxml 序列化器使用 utf-8 编码？

Question

我想使用 XML::LibXML 序列化 xml，但它总是将 utf-8 字符转换为 html 表示形式：我得到 á 来自“\xc3\xa1”等...
\n如何让它使用 utf-8 代替？

\n\n

use strict;\nuse XML::LibXML;\nuse utf8;\n\nmy $str = \'<item><name>\xc3\xa1rv\xc3\xadzt\xc5\xb1r\xc5\x91 t\xc3\xbck\xc3\xb6rf\xc3\xbar\xc3\xb3g\xc3\xa9p</name></item>\';\nmy $dom = XML::LibXML->load_xml(string => $str);\n\nprint $str."\\n";\nprint $dom->serialize(1);\n

\n

Answer 1

my $str = \'<?xml version="1.0" encoding="UTF-8"?><item><name>\xc3\xa1rv\xc3\xadzt\xc5\xb1r\xc5\x91 t\xc3\xbck\xc3\xb6rf\xc3\xbar\xc3\xb3g\xc3\xa9p</name></item>\';\nmy $doc = XML::LibXML->load_xml( string => $str );\nprint $doc->serialize(1);\n

\n\n

或者

\n\n

my $str = \'<item><name>\xc3\xa1rv\xc3\xadzt\xc5\xb1r\xc5\x91 t\xc3\xbck\xc3\xb6rf\xc3\xbar\xc3\xb3g\xc3\xa9p</name></item>\';\nmy $doc = XML::LibXML->load_xml( string => $str );\n$doc->setEncoding("UTF-8");    \nprint $doc->serialize(1);\n

\n