Changeset 23284 for main

Timestamp:

2010-11-03T17:38:32+13:00 (13 years ago)

Author:

sjm84

Message:

Dr Bainbridge's modification of nice-string subroutine which will print the unicode strings for debugging (printable ASCII chars are shown as-is, other chars are shown with their hex values for their unicode code points.

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/util.pm

@@ -1374 +1374 @@
 }
 
+# To print UTF8 (unicode) for debugging:
+# Characters that are easily displayed (that is, printable ASCII) 
+# are shown as-is, whereas hexcodes are shown for all other chars.
+# Useful method for debugging when doing encoding related work.
+sub debug_unicode_string
+{
+    join("",
+         map { $_ > 128 ?                      # if wide character...
+                   sprintf("\\x{%04X}", $_) :  # \x{...}
+                   chr($_)          
+               } unpack("U*", $_[0]));         # unpack Unicode characters
+}
 
 1;