: use utf8; use strict; use warnings; use open IO => ':utf8'; our $VERSION = '1.0'; $header{content_type} = 'text/html; charset=utf-8'; :>
↳"; print ' | ', $_ for @nibble; print " | \n"; } print ' | |
---|---|---|---|
', $nibble[$msb]; for my $lsb (0 .. $#nibble) { my $glyph = substr $table, ($msb<<4) + $lsb, 1; if ($glyph eq $NOCHAR) { print ' | '; next; } my $info = [ord $glyph]; if (defined (my $mnem = $di{ord $glyph})) { $info = $diinfo->{$mnem}; } my ($codepoint, $name, $prop, $script, $string) = @$info; $glyph = quote($string || $glyph); my $desc = sprintf 'U+%04X%s', $codepoint, $name && " ($name)"; my @class = ('X', grep {$_} $prop, $script); $glyph = "$glyph" if $prop eq 'Zs'; printf "\n".' | %s', join(' ', @class), quote($desc), $glyph; } print "\n | ", $nibble[$msb], "\n"; } print " |