(common.inc.plp)><: Html({ title => 'latin alphabet cheat sheet', version => '1.6', description => [ ], keywords => [qw' latin roman alphabet script letter unicode font glyph abc code encoding spelling symbol writing comparison character secret cursive fraktur blind braille morse deaf asl hand barcode bar color semaphore flag '], stylesheet => [qw( light dark red mono )], data => ['writing-latn.inc.pl'], }); :>
Variant encodings of the common ASCII (latin, roman, or 'mercan) letters A–Z. Also see related alphabets and font comparison.
<: use List::Util qw( pairs ); my @table = do 'writing-latn.inc.pl'; if ($! or $@ or !@table) { die ["Table data not found", $@ || $!]; } else { say '# ASCII − 64'; print ' | ', $_ for 1 .. 26; say ' |
---|---|
26) { # special character for sample generation print ' hidden'; # sample only } else { print ' title=', chr($col + ord('A') - $colspan); } if ($colspan > 1) { print " colspan=$colspan"; $colspan = 1; } printf ' class="%s"', "@class" if @class; print '>'; say; } } say " |