Hi,
I am running this on z/OS and perl-5.8.6.
$a = 128;
$b = 256;
for($i=$a;$i<=$b;$i++)
{
$str = join "",$str, pack 'U*',$i;
}
print "str : $str\n";
If I print $str and do a od -tc -tx, I notice that the
chars corresponding to values 128 through 159 show up
as single (ebcdic) bytes whereas chars corresponding
to values from 160 through 256 show up as (utf-ebcdic)
double bytes.
e.g. for value 130, I get \x23 whereas for 161, I get
\x80\x42.
Why is this so ?
Thanks in advance,
Rajarshi.
__________________________________
Do you Yahoo!?
Yahoo! Small Business - Try our new Resources site
http://smallbusiness.yahoo.com/resources/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
