4 title => 'digit characters sheet',
7 "Character comparison,",
8 "tracking letters as they evolve from Phoenician to modern scripts.",
9 "Good Unicode test sample.",
12 script glyph unicode writing comparison character alphabet letter
13 history phoenician latin sample test language multilingual
15 stylesheet => [qw'light dark red'],
16 data => [qw'writing-digits.inc.pl'],
20 <h1>Writing systems</h1>
22 <p>Also see comparison of <a href="/writing">writing systems</a>.</p>
27 use Shiar_Sheet::FormatChar;
28 my $glyphs = Shiar_Sheet::FormatChar->new;
29 unless (exists $get{v}) {
32 $glyphs->{style} = 'univer';
35 my $scriptname = do 'writing-script.inc.pl';
36 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
38 my @table = do "writing-digits.inc.pl";
39 die "Table data not found: $_\n" for $@ || $! || ();
42 ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
43 $scriptname->{"digits_$_"} || $scriptname->{$_} || $_