<: 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 # $ & @ print ''; print ''; for my $c1 (@chars) { print "

'; print "	$_" for @chars, '_'; print '
$c1"; for my $c2 (@chars, '_') { my $mnem = $c1 . $c2; if (not defined $di->{$mnem}) { print '	'; next; } my $chr = $di->{$mnem}; my @class = 'any'; printf '	%s', join(' ', @class), quote($mnem), quote(chr $chr); } print "\n"; } print "

\n";