Re: pack mangles utf output

pack works for me.

$ use Devel::Peek

$ Dump pack 'A20', "FREIGHT – INTRASTATE"
SV = PV(0x4a5bce0) at 0x4a29660
  REFCNT = 1
  FLAGS = (PADTMP,POK,pPOK,UTF8)
  PV = 0x4644800 "FREIGHT \342\200\223 INTRASTATE"\0 [UTF8 "FREIGHT \x{2013} INTRASTATE"]
  CUR = 22
  LEN = 40
[]
$ open my $fh, '>:encoding(UTF-8)', '/tmp/foobar'
1
$ $fh->print(pack 'A20', "FREIGHT – INTRASTATE")
1

/tmp$ hex /tmp/foobar
0000  46 52 45 49 47 48 54 20  e2 80 93 20 49 4e 54 52  FREIGHT ā€“ INTR
0010  41 53 54 41 54 45                                 ASTATE

Comment on Re: pack mangles utf output

Replies are listed 'Best First'.
Re^2: pack mangles utf output by roho (Bishop) on Aug 28, 2013 at 15:29 UTC
Hmmm ... I converted the utf character to hex in both output lines and here's what I got: without pack: e28093 with pack: c3a2c280c293 Could be my version of Perl (5.89) or my platform (Windows 7), but it is not working for me. "Its not how hard you work, its how much you get done."	[reply]
Re^3: pack mangles utf output by vsespb (Chaplain) on Aug 28, 2013 at 15:50 UTC
Yep, perl-5.8.9 under Linux affected $ perlbrew exec --with perl-5.8.9 perl -MDevel::Peek -e 'use utf8; Dump pack 'A20', "FREIGHT – INTRASTATE"' perl-5.8.9 ========== SV = PV(0x1d14100) at 0x1d11350 REFCNT = 1 FLAGS = (PADTMP,POK,pPOK) PV = 0x1d69870 "FREIGHT \342\200\223 INTRASTA"\0 CUR = 20 LEN = 32 $ perlbrew exec --with perl-5.10.0 perl -MDevel::Peek -e 'use utf8; Dump pack 'A20', "FREIGHT – INTRASTATE"' perl-5.10.0 ========== SV = PV(0x1773098) at 0x178e288 REFCNT = 1 FLAGS = (PADTMP,POK,pPOK,UTF8) PV = 0x1798ca0 "FREIGHT \342\200\223 INTRASTATE"\0 UTF8 "FREIGHT \x{2013} INTRASTATE" CUR = 22 LEN = 32	[reply]