代码之家 › 专栏 › 技术社区 › lmocsi

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

utf-8 serialization perl xml

lmocsi · 技术社区 · 6 年前

我想用xml::LibXML序列化xml,但它总是将utf-8字符转换为html表示形式:I getá从“”等。。。
我怎样才能让它改用utf-8呢?

use strict;
use XML::LibXML;
use utf8;

my $str = '<item><name>Ã¡rvÃztÅ±rÅ tÃ¼kÃ¶rfÃºrÃ³gÃ©p</name></item>';
my $dom = XML::LibXML->load_xml(string => $str);

print $str."\n";
print $dom->serialize(1);

1 回复 | 直到 6 年前

ikegami Gilles Quénot 6 年前

my $str = '<?xml version="1.0" encoding="UTF-8"?><item><name>Ã¡rvÃztÅ±rÅ tÃ¼kÃ¶rfÃºrÃ³gÃ©p</name></item>';
my $doc = XML::LibXML->load_xml( string => $str );
print $doc->serialize(1);

my $str = '<item><name>Ã¡rvÃztÅ±rÅ tÃ¼kÃ¶rfÃºrÃ³gÃ©p</name></item>';
my $doc = XML::LibXML->load_xml( string => $str );
$doc->setEncoding("UTF-8");    
print $doc->serialize(1);

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前