Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

"Looking" at the characters of a Unicode string.

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

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"; }

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

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (5)
As of 2024-03-28 13:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found