> From: Ned Konz [mailto:[EMAIL PROTECTED]]
> 
> sub tounicode { my $s = shift; pack('v*', unpack('c*', $s)) }
> 
> sub fromunicode { my $s = shift; pack('c*', unpack('v*', $s)) }

Cool! I thought there should be a pure pack/unpack
method, but I couldn't figure it out.

Cheers,
Douglas Wilson

---
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]

Reply via email to