regex - ISO解码问题perl

Question

我有包含的字符串

$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 字符，以及在手动替换的情况下，为什么Â来了？

score -1 · Accepted Answer

尝试use utf8;。这对我有用：

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

my $s = '&reg;';

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

print encode('utf8', $s);

1 回答 1