Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

"Looking" at the characters of a Unicode string.

by olivierp (Hermit)
on Nov 29, 2004 at 19:47 UTC ( #411028=snippet: print w/ replies, xml ) Need Help??

Description: 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";
}
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
Re: "Looking" at the characters of a Unicode string.
by zentara (Archbishop) 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"; }

    I'm not really a human, but I play one on earth. flash japh

Back to Snippets Section

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://411028]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (11)
As of 2015-07-31 11:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (276 votes), past polls