courierb has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I'd really appreciate some help here.
for example i have a character "€" (i dont know if the system will filter it out or not)
after encoded it it shows as "€"; know as hexadecimal
here is the javascripts encode and decode code which could conver the character "€" to hexadecimal correctly
just as a reference i copy it below
 
function encode(str){ 
return str.replace(/[^\u0000-\u00FF]/g,function($0){return escape($0).
+replace(/(%u)(\w{4})/gi,"&#x$2;")}); 
              
} 

function decode(str){ 
return str.replace(/&#x/g,'%u').replace(/;/g,''); 
              
}

[download]
actally i want to know the equevelent of module or code perl which do the same task .
i dig into this forum found a few discussion about it. here is the one related to my question.
http://www.perlmonks.org/?node_id=654948
it seems HTML::Entities is related to my question.
I believe its decode is function well for me. i have tested it
now i try to encode it from a "double bit character" to a string in the foramt of &#xnnn( i just know its name called hexadecimal)
i have tried HTML::Entities but i cant get the expecting result from it.
here is my code. could anyone help me a bit?????
How comes it is functional well in decoding while failed in encoding??
I suspect i missed some thing but i cant find it out. please be note
i wish it's out put be "& #x20ac;" if i key in "€" as the input. 
 

<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=utf-8">
<title>tf8 Example</title>
</head>
<body>
 <form method="post" action="7bit.cgi">
  <p>word: <input name="word" type="text">  
<input type="submit" name="Submit" value=" submit ">
</form>

</body>
</html>



-------7bit.cgi---
#!/usr/bin/perl -w
use CGI;
use HTML::Entities;
use utf8;
$query = new CGI;

$secretword = $query->param('word');
$remotehost = $query->remote_host();

my $a = $secretword;
$a = decode_entities($a);

#print encode_entities($a)."\n";
print $query->header(  -charset=>'utf-8' );  
print "$a";

[download]
Thanks in advance Cliff

Replies are listed 'Best First'.
Re: sring encode problem (hexadecimal)
by JavaFan (Canon) on Jan 19, 2011 at 10:49 UTC
    I think you want (untested): 
    s/([^\x00-\xFF])/sprintf "&#x%x;", $1/eg;  # Encode
s/&#x(\p{AHex}+);/chr hex $1/eg;           # Decode

    [download]
[reply]
[d/l]
      Hi JavaFan


      It seems it is non working. i wil return a blank (nothing return) 
       
#!/usr/bin/perl


$string="€";
$string = s/([^\x00-\xFF])/sprintf "&#x%x;", $1/eg;  # Encode

print $string;

      [download]


      Anyway thanks for the reply Have a nice day







[reply]
[d/l]
        Use a bind operator (=~) instead of an assignment operator (=).
[reply]
[d/l]
[select]
Re: sring encode problem (hexadecimal)
by happy.barney (Friar) on Jan 19, 2011 at 10:56 UTC
    search HTML::Entities docs, it looks to me that you are searching for this method:

    encode_entities_numeric( $string, $unsafe_chars )
[reply]
      Hi happy.barney Thanks for the reply. Actaully i have test it in that way
      but i am unluck to be returned an error
      i cant figure out what happened
      according to the doc i need to use
      encode_entities( $string, $unsafe_chars ) 


       
#!/usr/bin/perl

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

      [download]

      The error was read as :
      Undefined subroutine &main::encode_entities_numeric called at 2.cgi line 5.
      i was losted. i did the test in winxp.




      Cheers


[reply]
[d/l]
        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&ocirc;
+le", but
           "encode_entities_numeric("r\xF4le")" returns "r&#xF4;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]
[reply]
[d/l]

Back to Seekers of Perl Wisdom