<: use utf8; use strict; use warnings; use open IO => ':utf8'; 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 ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} }; my $glyph = chr $codepoint; utf8::upgrade($glyph); # prevent latin1 output my $desc = $mnem . ($name && " ($name)"); my @class = ('X', grep {$_} $prop, $script); $glyph = quote($glyph); $glyph = "$glyph" if $prop 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

latin1

ascii

private

proposed