in reply to How to get the Unicode of a character in perl?

Easy, just the same as you would get the ascii-code of a character, the ord-function gets you its Unicode.

use Modern::Perl;
use charnames ':full';
binmode STDOUT, ':utf8';

my $unicode = "\N{WHITE SMILING FACE}";
say sprintf '%s has unicode %X', $unicode, ord($unicode);

[download]

Output:

☺ has unicode 263A

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

In Section Seekers of Perl Wisdom