Aaron Siladi <[EMAIL PROTECTED]> writes:
>I have a UTF-8 string which I want to output as ascii and have the UTF8
>characters converted to numeric character references.
>
> 
>
>I tried using Encode with the FB_HTMLCREFS fail back option enabled, but for
>the 2 byte UTF8 characters, 2 incorrect char refs were printed out instead
>of the correct one.

You mean like this:
--------------------------------------
#!perl
use Encode;
my $s = chr(0x100)."4";
my $n = encode('ascii',$s,Encode::FB_HTMLCREF);
print "$n\n";
__END__
----------------------------------------------
Works for me:
[EMAIL PROTECTED]:/home/p4work/mail> perl /tmp/try
&#256;4

>
> 
>
>Any help is greatly appreciated
>
> 
>
>Thanks
>
> 
>
>Aaron
>
> 
>
> 
>
>
>This electronic message transmission contains information from the Company that may 
>be proprietary, confidential and/or privileged.
>The information is intended only for the use of the individual(s) or entity named 
>above.  If you are not the intended recipient, be
>aware that any disclosure, copying or distribution or use of the contents of this 
>information is prohibited.  If you have received
>this electronic transmission in error, please notify the sender immediately by 
>replying to the address listed in the "From:" field.

Reply via email to