Changeset 23285 for main/trunk/greenstone2/perllib/unicode.pm

Timestamp:

2010-11-03T17:52:09+13:00 (13 years ago)

Author:

sjm84

Message:

Moving subroutine committed previously to util.pm to unicode.pm where it belongs: 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/unicode.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/unicode.pm

@@ -701 +701 @@
 }
 
+# Useful method to print UTF8 (or other unicode) for debugging.
+# Characters that are easily displayed (that is, printable ASCII) 
+# are shown as-is, whereas hex values of the unicode code points 
+# are shown for all other chars.
+sub debug_unicode_string
+{
+    join("",
+         map { $_ > 128 ?                      # if wide character...
+                   sprintf("\\x{%04X}", $_) :  # \x{...}
+                   chr($_)          
+               } unpack("U*", $_[0]));         # unpack Unicode characters
+}
 
 1;