On 05/08/00, "[EMAIL PROTECTED]" wrote:

> $string =~ s/(.)/$1\x00/g;    # expand ANSI to UTF-8 (not the most

Slightly more efficient (~30% ?), but more to type, is:

$string = pack("Ax" x length $string, split("", $string));

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