perl - HTML 实体编码实体编号

Question

我有一个测试字符串，如：

my $input = "testing &test ₨";
my $output = HTML::Entities::encode_entities($str,"<>&\"'");

所需的输出是

testing &test ₨

但是 HTML::Entities::encode_entities 将其编码为

testing &test ₨

总而言之，我希望 HTML::Entities 仅在它不代表 HTML 实体编号时才对“&”字符进行编码。

Answer 1

您需要先解码字符串，然后对其进行编码：

#!/usr/bin/env perl
use strict; use warnings; use v5.10;
use HTML::Entities ();
my $input = "testing &test ₨";
$input = HTML::Entities::encode( HTML::Entities::decode( $input ) );
say $input;

结果是

testing &test ₨

20A8是 的十六进制版本8360。