Changeset 15007 for gsdl/trunk

Timestamp:

2008-02-22T11:36:08+13:00 (16 years ago)

Author:

davidb

Message:

"debug_unicode_string" function added to help figure out uncoding problems. Prints out any character above 255 in \x{HEXCODE} form.

File:

• gsdl/trunk/perllib/gsprintf.pm (modified) (2 diffs)

gsdl/trunk/perllib/gsprintf.pm

@@ -33 +33 @@
 use util;
 
-@gsprintf::EXPORT_OK = qw'gsprintf'; # functions we can export into namespace
+@gsprintf::EXPORT_OK = qw(gsprintf); # functions we can export into namespace
 
 
@@ -246 +246 @@
 
 
+sub debug_unicode_string
+{
+    join("",
+     map { $_ > 255 ?                      # if wide character...
+           sprintf("\\x{%04X}", $_) :  # \x{...}
+           chr($_)          
+           } unpack("U*", $_[0]));         # unpack Unicode characters
+}
+
+
 1;