On Mon, 17 Oct 2005 00:27:42 -0700 (PDT), rajarshi das
<dazio_r(_at_)yahoo(_dot_)com> 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
