编码实体编号的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.