Re^2: Perl character encoding


test=c:\\temp\\abc£

test.pl
-------

use Devel::Peek; 
print Dump $ENV{"TEST"}; 
system("perl.exe c:\\temp\\test1.pl");

test1.pl
--------

use Devel::Peek; 
print Dump $ENV{"TEST"}; 


Running test.pl returns:


SV = PVMG(0x1a22dcc) at 0x356fd4
  REFCNT = 1
  FLAGS = (SMG,RMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x1a2f4a4 "c:\\temp\\abc\243"\0
  CUR = 12
  LEN = 16
  MAGIC = 0x1a2f4cc
    MG_VIRTUAL = &PL_vtbl_envelem
    MG_TYPE = PERL_MAGIC_envelem(e)
    MG_LEN = 17
    MG_PTR = 0x1a2f4fc "TEST"
SV = PVMG(0x1a22dcc) at 0x356fd4
  REFCNT = 1
  FLAGS = (SMG,RMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x1a2f4bc "c:\\temp\\abc\234"\0
  CUR = 12
  LEN = 16
  MAGIC = 0x1a2f4e4
    MG_VIRTUAL = &PL_vtbl_envelem
    MG_TYPE = PERL_MAGIC_envelem(e)
    MG_LEN = 17
    MG_PTR = 0x1a2f514 "TEST"
[download]

-Kartlee

Comment on Re^2: Perl character encoding Download Code

Replies are listed 'Best First'.
Re^3: Perl character encoding by ikegami (Patriarch) on Mar 13, 2010 at 19:18 UTC
Both contain the same still-encoded string. Your test doesn't demonstrate the corruption you mentioned. By the way, `print Dump` should be just `Dump`	[reply] [d/l] [select]