perl-unicode

utf8::upgrade,utf8::encode and utf8::is_utf8 on EBCDIC platform

2005-09-01 05:29:14
Hi,

 This are the tetstcase i'm runing on EBCDIC platform,

my $b = chr(0x0FF);
$p=utf8::upgrade($b);
print "\n$p";

utf8::upgarde returns the number of octets necessary
to represent the string as UTF-X.

EBCDIC output is 1 whereas ASCII platform output is 2.
Is the return value i'm getting on EBCDIC is correct?


my $c=chr(0x0FF);
print "before $c\n";
print "\n";
utf8::encode($c);
print "after $c\n";
print length($c);

On ASCII before is single octet repsentation and after
encode is two byte , length is 2.

On EBCDIC it is single before and after encode and
length is 1.

Is this correct on EBCDIC or is it a bug in code for
EBCDIC ?

utf::is_utf8 test whether STRING is in UTF-8, so 0x0FF
is UTF-8 on EBCDIC?




                
__________________________________ 
Do you Yahoo!? 
Yahoo! Mail - Helps protect you from nasty viruses. 
http://promotions.yahoo.com/new_mail

<Prev in Thread] Current Thread [Next in Thread>