> From: Ned Konz [mailto:[EMAIL PROTECTED]]
> sub tounicode { my $s = shift; pack('v*', unpack('c*', $s)) }
Except it doesn't work on 8-bit characters.
"\x84\x85" ends up as:
"\x84\xFF\x85\xFF"
Probably should be:
sub tounicode { my $s = shift; pack('v*', unpack('C*', $s)) }
And similarly below.
>
> sub fromunicode { my $s = shift; pack('c*', unpack('v*', $s)) }
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
