X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c4a7214bce24b26fbe98d2708eb3c6ad7a5f5c2e..4b0c162ccc694e4b0c395062a23819a426f89f49:/charset.plp diff --git a/charset.plp b/charset.plp index 6b6e7d0..e82c5cc 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'; + charset cheat sheet - @@ -115,7 +115,7 @@ my @nibble = (0..9, 'A'..'F'); for my $row (@request) { printf '
  • ', !$row->{cell} && ' charmap'; printf '', $row->{set}; - print ''; + print '' x 17; for my $section (qw{thead}) { print "<$section>
    %s
    ↱"; print '', $_ for @nibble; @@ -140,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); @@ -203,15 +208,13 @@ print "\n";

    - sheet.shiar.nl/charset - <:= "v$VERSION" :> + sheet.shiar.nl/charset.plp + <:= $VERSION :> created by • - AGPLv3 • - last update <: - use Time::Format qw(time_format); - print time_format('yyyy-mm-dd', (stat $ENV{SCRIPT_FILENAME})[9]); - :> + AGPLv3