perl - エンティティ番号をエンコードする HTML エンティティ

Question

次のようなテスト文字列があります。

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

望ましい出力は

testing &test ₨

しかし、HTML::Entities::encode_entities はこれをエンコードしています

testing &test ₨

要約すると、HTML エンティティ番号を表していない場合にのみ、HTML::Entities で "&" 文字をエンコードする必要があります。

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の 16 進数バージョンです8360。