#!/usr/bin/perl -- use strict; use warnings; use Data::Dumper; use Unicode::UCD qw' charinfo '; my $k = chr 12794; # http://en.wikipedia.org/wiki/Mu_%28kana%29 print Dumper( { ord => ord $k, chr => $k, charinfo => charinfo(ord $k), }), "\n"; __END__ $VAR1 = { 'charinfo' => { 'digit' => '', 'bidi' => 'L', 'category' => 'Lo', 'code' => '31FA', 'script' => 'Katakana', 'combining' => 0, 'upper' => '', 'name' => 'KATAKANA LETTER SMALL MU', 'unicode10' => '', 'decomposition' => '', 'comment' => '', 'mirrored' => 'N', 'lower' => '', 'numeric' => '', 'decimal' => '', 'title' => '', 'block' => 'Katakana Phonetic Extensions' }, 'chr' => "\x{31fa}", 'ord' => 12794 };
In reply to Re: How to get the Unicode of a character in perl?
by Anonymous Monk
in thread How to get the Unicode of a character in perl?
by mattdeans
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |