X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/14e719f07fcb43c9a0ada3f9f9f018ff5a20a1cf..28151a28db84c6d6018232f36c0003ecd562b3f0:/charset.plp?ds=sidebyside diff --git a/charset.plp b/charset.plp index a3e845d..29e7e23 100644 --- a/charset.plp +++ b/charset.plp @@ -1,12 +1,5 @@ -<: -use utf8; -use strict; -use warnings; -use open IO => ':utf8'; - -our $VERSION = 'v1.0'; - -$header{content_type} = 'text/html; charset=utf-8'; +<(common.inc.plp)><: + our $VERSION = 'v1.0'; :> @@ -15,10 +8,10 @@ $header{content_type} = 'text/html; charset=utf-8';
â±"; print ' | ', $_ for @nibble; @@ -140,6 +131,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); @@ -153,11 +149,9 @@ for my $row (@request) { } print "\n"; } - print " |
---|