<: use utf8; use strict; use warnings; use open IO => ':utf8'; use Unicode::UCD qw(charinfo); our $VERSION = '1.0'; $header{content_type} = 'text/html; charset=utf-8'; :> digraph cheat sheet

RFC-1345 Digraphs

<: my $di = do 'digraphs.inc.pl'; sub quote { local $_ = shift; s/"/"/g; s//>/g; return $_; } my @chars = ((map {chr} ord '!' .. ord 'Z'), 'a'..'z'); splice @chars, $_, 1, () for 2, 3-1, 5-2, 31-3; # remove character exceptions # $ & @ my @chars2 = (@chars, '_'); # trailing character (extended set) print ''; for my $section (qw{thead tfoot}) { print "<$section>'; for my $c1 (@chars) { print "

"; print "	$_" for @chars2; } print '
$c1"; for my $c2 (@chars2) { my $mnem = $c1 . $c2; if (not defined $di->{$mnem}) { print '	'; next; } my $chr = $di->{$mnem}; my $glyph = chr $chr; utf8::upgrade($glyph); # prevent latin1 output my $info = charinfo($chr); my $desc = $mnem; $desc .= " ($_)" for $info->{name} \|\| (); my @class = 'X'; push @class, $_ for $info->{category} \|\| (); push @class, $_ for $info->{script} \|\| (); $glyph = quote($glyph); $glyph = "$glyph" if $info->{category} eq 'Zs'; printf "\n".'	%s', join(' ', @class), quote($desc), $glyph; } print "\n	$c1\n"; } print "

\n"; :>

control

spacing

modifier

spacing modifier

quote

punctuation

symbol

math

currency

numeric

greek

cyrillic

latin

hebrew

arabic

japanese

chinese

unicode

ascii

latin1

private

proposed