"Looking" at the characters of a Unicode string.

Recently, I was stumped by "strange black boxes" appearing in a Win32 application textfield, whose contents are retrieved from a Unicode database field.

I used the following snippet to help me identify what was a "bad" mix sequence of <CR> and <LF> characters.

use Unicode::CharName qw/uname/;
use Unicode::UCD qw/charinfo/;

my $value = <what you are looking at>
my $c;
print "Unicode Charname:\tHexValue:\tCharCode\n";
for (split //, $value) {
  $c = ord($_);
  print uname($c) .":\t" . charinfo($c)->{code} . ":\t$c\n";
}
[download]

Comment on "Looking" at the characters of a Unicode string. Download Code

Replies are listed 'Best First'.
Re: "Looking" at the characters of a Unicode string. by gaal (Parson) on Nov 29, 2004 at 19:54 UTC
See also View Unicode in hex.	[reply]
Re: "Looking" at the characters of a Unicode string. by zentara (Cardinal) on Nov 30, 2004 at 19:10 UTC
Nice. I modified my copy to display the letter, and reversed the print string so that the long text of the unicode name didn't muck up the tab columns. `#!/usr/bin/perl use warnings; use strict; use Unicode::CharName qw/uname/; use Unicode::UCD qw/charinfo/; my $value = shift \|\| "Å være eller å ikke være"; my $c; print "HexValue:\tCharCode\tUnicode Charname:\n"; for (split //, $value) { my $l = $_; $c = ord($_); print charinfo($c)->{code} . ":\t\t$c\t\t"."$l -> ". uname($c) ."\n"; }` [download] I'm not really a human, but I play one on earth. flash japh	[reply] [d/l]