Hi,
I run this on z/OS and perl-5.8.6.
3) If $a = 160 and $b = 192, $1 shows 2 bytes for each
matching code pt value.
$a = 160;
$b = 240;
for($i=$a;$i<=$b;$i++)
{
$str = join "",$str, pack 'U*',$i;
}
if ($str =~ /(\p{inlatin1supplement}+)/)
{
print "\$1 : $1\n";
}
1) If I pipe the o/p to od -tc -tx, $1 shows me two
bytes for each code pt value (e.g. \x8a\x41 for
value=192).
2) If I set $a = 192, $b = 240, and repeat the test,
then, $1 now shows me 1 byte for each matching code pt
value (e.g. \x64 for value=192).
For all values of 160 <= $a < 192, ($b = 240), $1
shows two bytes and at $a = 192, $1 shows 1 byte.
Why is it so ? Does the codepoint value 192 have any
special significance in utf-ebcdic ?
Thanks in advance,
Rajarshi.
__________________________________
Yahoo! Mail Mobile
Take Yahoo! Mail with you! Check email on your mobile phone.
http://mobile.yahoo.com/learn/mail
