perl pack function

fvgestel · 10-26-2005, 06:30 AM

Hi all,

I've stumbled upon a weird problem in perl and I was hoping that some perl-guru here could come with an answer.
The problem is this :
2 years ago I wrote a perl-script which uses the pack function like this :

my $msg = pack("C*",0x80,0x10, 0x29)

now $msg contains 0x80,0x10 and 0x29

I'm running the same code on a redhat enterprise linux ws3 machine with Intel Xeon, only now $msg contains 0xC2,0x80,0x10 and 0x29

It seems that every byte bigger than 0x7F gets a prefix byte! (0xC2 or 0xC3)
What's happening here?

jim mcnamara · 10-26-2005, 10:19 AM

What does

Code:

pack("C*",0x80,0x10,0x29,0x0);

give you?

I'm thinking there is some kind of boundary alignment issue.

fvgestel · 10-27-2005, 11:35 AM

I've already found a solution for my problem. It seems perl looks at the LANG environment variable to convert all IO to utf8 or something like that. I used the binmode function on the socket to prevent convertion.