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
