On Mon, 17 Oct 2005 00:27:42 -0700 (PDT), rajarshi das <[EMAIL PROTECTED]> wrote
> > Or is the value stored in $b1 generated by > > pack("U0U*", map { hex } > > split " ", '00FF') really a representation of > > U+00FF? > > > > use Devel::Peek and what is output from > > Devel::Peek::Dump($b1)? > > Following is the output in UTF-EBCDIC for Dump($b1) : > > SV = PV(0x20db050c) at 0x20dcaf9c > REFCNT = 1 > FLAGS = (POK,pPOK,UTF8) > PV = 0x20db5a70 "\213\163"\0 [UTF8 "\x{df}"] > CUR = 2 > LEN = 3 > > Rajarshi. Well, "\213\163" is U+00FF in UTF-EBCDIC. (EBCDIC "\x{DF}" is U+00FF too.) I think pack("U0U*") works correctly. regards, SADAHIRO Tomoyuki