#!/usr/bin/perl

use HTML::Entities;
$string="€";
$encoded = encode_entities_numeric($string, '<>&"');
print $encoded;
[download]

From the documentation of HTML::Entities:

       encode_entities_numeric( $string )
       encode_entities_numeric( $string, $unsafe_chars )
           This routine works just like encode_entities, except that t
+he
           replacement entities are always "&#xhexnum;" and never "&en
+tname;".
           For example, "encode_entities("r\xF4le")" returns "rô
+le", but
           "encode_entities_numeric("r\xF4le")" returns "rôle".

           This routine is not exported by default.  But you can alway
+s export
           it with "use HTML::Entities qw(encode_entities_numeric);" o
+r even
           "use HTML::Entities qw(:DEFAULT encode_entities_numeric);"
[download]

well. i am not so understand the doc as English is not my native language.
here is my code to test it again and it works .
It do produce string "€" start from "&#x" while it has 5 digits which is not 7 byte string .


 #use HTML::Entities;
use HTML::Entities"encode_entities_numeric";
$string="€";  # ("€"  expected out put result after encoding)
$encoded = encode_entities_numeric($string);

print $encoded;
[download]






while when i test it in this way

#use HTML::Entities;
use utf8 ; ###########
use HTML::Entities"encode_entities_numeric";
$string="€";  # ("€"  expected out put result after encoding)
$encoded = encode_entities_numeric($string);


print $encoded;
[download]

it print out character "€" itself as if there is no encoding happened.
what should i do??
Cheers

JavaFan i really appreciate y your assitance.
however i still cant get it work

could you give me a sample code to prove it ?
as i have tested it however i got error as i said above.


cheers