confusing no. of bytes in $1 (z/OS, perl-5.8.6)

2005-06-06 Thread rajarshi das
I run the following script : $a = 160; $b = 256; for ($i=$a;$i<=$b;$i++) { $str = join '', $str, pack 'U*', $i; } if ($str =~ /(\p{inlatin1supplement}+)/) { print "\$1 : $1\n"; } on redirecting above o/p to od -tc -tx, $1 has 2 bytes for all matching code point values (160-255). If the abo

Re: chr function on z/OS.

2005-06-06 Thread Nick Ing-Simmons
Rajarshi Das <[EMAIL PROTECTED]> writes: >Hi, > >I have a basic doubt regarding unicode and z/OS >(ebcdic : ibm-1047). > >$a = chr(0x00A1); > >$b = chr(0xA1); > >Should $a and $b be equal or yield different results >on ebcdic ? As far as I know they should be the same. chr() takes a number and t