(common.inc.plp)><: Html({ title => 'writing system inheritance sheet', version => '1.3', description => [ "Character comparison,", "tracking letters as they evolve from Phoenician to modern scripts.", "Good Unicode test sample.", ], keywords => [qw' script glyph unicode writing comparison character alphabet letter history phoenician latin sample test language multilingual '], stylesheet => [qw'light circus dark red mono'], data => [qw'writing-phnx.inc.pl'], }); :>
Comparison of Unicode letters in related alphabets. Also see charsets and common chars.
%s: %s.
\n", @{$@}; next; }; my $rows = $info->{list} or next; $glyphs->print($title => [map { my $ref = $_; my $lead = s/^(-)// && $1; (map { ".>$lead$_" } $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ ), @{ $info->{table}->{$ref} || [] } } @{$rows}]); } say "