5 use open IO => ':utf8';
9 $header{content_type} = 'text/html; charset=utf-8';
11 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
12 "http://www.w3.org/TR/html4/loose.dtd">
16 <title>digraph cheat sheet</title>
17 <meta http-equiv="content-type" content="utf-8">
24 border-collapse: collapse;
25 table-layout: fixed; /* prevent resizing, notably in msie6 */
28 width: 1.2em; /* msie only looks at the first row */
29 min-width: 1em; /* prevents gecko from restricting to page width */
35 border: 1px solid #888;
45 <h1>RFC-1345 Digraphs</h1>
47 my $di = do 'digraphs.inc.pl';
57 my @chars = ((map {chr} ord '!' .. ord 'Z'), 'a'..'z');
58 splice @chars, $_, 1, () for 2, 3-1, 5-2, 31-3; # remove character exceptions # $ & @
60 print '<thead><tr><th> ';
61 print "<th>$_" for @chars, '_';
65 for my $c2 (@chars, '_') {
67 if (not defined $di->{$mnem}) {
71 my $chr = $di->{$mnem};
75 printf '<td class="%s" title="%s">%s',
76 join(' ', @class), quote($mnem), quote(chr $chr);