ISO解码问题的Perl

我有一个包含ISO解码问题的Perl

$string = "&amp;&reg;";

当我做HTML::Entities::decode($string);它返回我的&®从我想通了，这个功能是无法解码的ISO代码http://www.w3schools.com/tags/ref_entities.asp

那么字符串我尝试了一些其他的东西喜欢，但没有成功

Encode::decode('utf8', '&reg;') // returns &reg; 
Encode::decode_utf8('&reg;') // returns &reg;

然后我试图手动替换它使用正则表达式模式，

$string =~ s/&reg;/®/g;

但上述行转换成&Â®，可有一个人请告诉我如何把这些字符ISO解码，并且在手动的情况下更换为什么Â会来吗？

来源

2013-10-16 Aman Agarwal

对实体权威的文档是[在HTML规范（http://www.w3.org/TR/html/syntax.html#named-character-references），不在不可靠的w3schools。无论如何，我无法重现：'perl -CS -MHTML :: Entities -E'say decode_entities“& ®”''产生预期的输出，使用最新的H：E v3.69 perl v5.18.1。你使用什么版本？ – amon

perl 5.14.2正常输出也是（HTML ::实体3.69太） – Suic

回复：“它返回给我'&®'”，那不是真的，它返回'＆®'。 – ikegami

-1

尝试use utf8;。这个工作对我来说：

use strict; 
use warnings; 
use utf8; 
use Encode; 

my $s = '&reg;'; 

$s =~ s/&reg;/®/g; 

print encode('utf8', $s);

来源

2013-10-16 12:37:01 Suic

utf-8编码后它变得像Ã –

请回答ikegami和amon的问题 – Suic

ISO解码问题的Perl

回答

相关问题