<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
+unless (exists $get{v}) {
+ $glyphs->{unicode}--;
+ $glyphs->{digraph}--;
+}
print $glyphs->table([qw{
.>Chinese 壹 貳 參 肆 伍 陸 柒 捌 玖 零
.>Osmanya 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠
}]);
-sub print_glyph_tables {
- while (@_) {
- printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
- while (ref $_[0] and $_ = shift) {
- print $glyphs->table($_);
- }
- print '</div>';
- }
-}
-
-print_glyph_tables(
+$glyphs->print(
Western => [qw{
.>Latin A > B C G D > E F Y VU W Z H - I J K L M N > X O P > - Q R > S T
.>Old_Italic 𐌀 > 𐌁 > 𐌂 𐌃 > 𐌄 𐌅𐌚 > > 𐌖 𐌆 𐌇 𐌈 𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎 𐌏 𐌐 > 𐌑 𐌒 𐌓 > 𐌔 𐌕
.>Cyrillic А Б В > Г Д Е Э > -Ѵ > У З И Ѳ > І К Л М Н Х -Ѯ О П Ц Ч -Ҁ Р Ш С Т
.>Gothic 𐌰 > 𐌱 > 𐌲 𐌳 > 𐌴 𐍆 > > 𐍅 𐌶 𐌷 𐌸 > 𐌹 𐌺 𐌻 𐌼 𐌽 > 𐍇 𐌿 𐍀 > - - 𐍂 > 𐍃 𐍄
.>Coptic Ⲁ > Ⲃ > Ⲅ Ⲇ > Ⲉ > > > Ⲩ Ⲍ Ⲏ Ⲑ > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ Ⲟ Ⲡ > Ⲋ - Ⲣ > Ⲥ Ⲧ
+ .>Lycian 𐊀 𐊂 𐊃 > 𐊄 𐊅 > 𐊆 > > > 𐊇 𐊈 - 𐊉 > 𐊊 𐊋 𐊍 𐊎 𐊏 𐊐 𐊑 𐊒 𐊓 > - 𐊔 𐊕 > 𐊖 𐊗
.>Greek Α > Β > Γ Δ > Ε -Ϝ > > Υ Ζ Η Θ Ι Ј Κ Λ Μ Ν Χ Ξ Ο Π > -Ϻ -Ϙ Ρ Σ -Ϲ Τ
+ .>Lydian 𐤠 > 𐤡 𐤢 𐤹 𐤣 > 𐤤 𐤥 𐤧 > 𐤰 - - 𐤱 > 𐤦 𐤨 𐤩 𐤪 𐤫 > - 𐤬 - > 𐤳 𐤲 𐤭 > 𐤮 𐤯
.>Phoenician 𐤀 > 𐤁 > 𐤂 𐤃 > 𐤄 > > > 𐤅 𐤆 𐤇 𐤈 > 𐤉 𐤊 𐤋 𐤌 𐤍 > 𐤎 𐤏 𐤐 > 𐤑 𐤒 𐤓 > 𐤔 𐤕
.>Samaritan ࠀ > ࠁ > ࠂ ࠃ > ࠄ > > > ࠅ ࠆ ࠇ ࠈ > ࠉ ࠊ ࠋ ࠌ ࠍ > ࠎ ࠏ ࠐ > ࠑ ࠒ ࠓ > ࠔ ࠕ
.>Hebrew א > ב > ג ד > ה > > ו װ ז ח ט י ײ כ ל מ נ > ס ע פ צ ץ ק ר > ש ת