Re: Perl character encoding

I just tried this on 5.10.1 from cmd.exe and I got no difference between the two processes. Of course this is assuming that the text I see on my browser is exactly the same as you mean, since translation can occur there as well.

The cmd.exe did not display the Ł correctly, it gave:

test1.pl: <abcú>
test2.pl: <abcú>
[download]

You do not say exactly what "garbled" is. It might help if you display the characters in hex. printf "%x", $ENV{TEST}; before and after you pass them through the environment block to see what the change really is.

I am interested in your perception of perl translating from Windows 1252 to utf-8 and back - can you cite the reference where you read that?

Comment on Re: Perl character encoding Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl character encoding by ikegami (Patriarch) on Mar 13, 2010 at 19:33 UTC
Console applications and windowed applications* use different encodings, often cp1252 and cp850. The cp1252 encoding of "Ł" is the same as the cp850 encoding of "ú". `Unicode cp1252 cp850 Ł U+00A3 A3=0243 C9=0311 ú U+00FA FA=0372 A3=0243` [download] * — I'm not sure what the actual distinction is.	[reply] [d/l]
Re^2: Perl character encoding by kartlee1 (Initiate) on Mar 13, 2010 at 19:02 UTC
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	[reply] [d/l]
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]