X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/2644a681f312e65a3f5e8c70d6dcf837931b51e8..5ff4b1c1b790314cd654d32ca6d72368d1748283:/charset.plp?ds=sidebyside diff --git a/charset.plp b/charset.plp index 91de26b..501e26c 100644 --- a/charset.plp +++ b/charset.plp @@ -4,7 +4,7 @@ use strict; use warnings; use open IO => ':utf8'; -our $VERSION = '1.0'; +our $VERSION = 'v1.0'; $header{content_type} = 'text/html; charset=utf-8'; @@ -13,8 +13,8 @@ $header{content_type} = 'text/html; charset=utf-8';
+â±"; print ' | ', $_ for @nibble; @@ -135,6 +140,11 @@ for my $row (@request) { if (defined (my $mnem = $di{ord $glyph})) { $info = $diinfo->{$mnem}; } + else { + require Unicode::UCD; + my $fullinfo = Unicode::UCD::charinfo(ord $glyph); + $info = [@$fullinfo{qw/code name category script string/}] if $fullinfo; + } my ($codepoint, $name, $prop, $script, $string) = @$info; $glyph = quote($string || $glyph); @@ -198,15 +208,11 @@ print "\n"; |
---|