script: add table to compare digits 0-9

diff --git a/script.plp b/script.plp
index ab5ed6b1c55507628a5a280f9271fe41837ac0d5..0f40c682492757fa171a71506f9bf49bdae74c2c 100644 (file)
--- a/script.plp
+++ b/script.plp
@@ -28,6 +28,44 @@ use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 print $glyphs->table([qw{
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 print $glyphs->table([qw{

+       .>Chinese              壹 貳 參 肆 伍 陸 柒 捌 玖 零
+       .>Chinese              一 二 三 四 五 六 七 八 九 〇
+       .>Hangzhou             〡 〢 〣 〤 〥 〦 〧 〨 〩  
+       .>Ethiopic             ፩ ፪ ፫ ፬ ፭ ፮ ፯ ፰ ፱  
+       .>Khmer                ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩ ០
+       .>Arabic_-_Indic       ١ ٢ ٣ ٤ ٥ ٦ ٧ ٨ ٩ ٠
+       .>Arabic_-_Indic_(Alt) ۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۰
+       .>Lao                  ໑ ໒ ໓ ໔ ໕ ໖ ໗ ໘ ໙ ໐
+       .>Malayalam_-_മലയാളം   ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯ ൦
+       .>Tamil_-_தமிழ்         ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯  
+       .>Myanmar              ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉ ၀
+       .>Thai_-_ไทย           ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙ ๐
+       .>Kannada              ೧ ೨ ೩ ೪ ೫ ೬ ೭ ೮ ೯ ೦
+       .>Telugu               ౧ ౨ ౩ ౪ ౫ ౬ ౭ ౮ ౯ ౦
+       .>Tibetan              ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༠
+       .>Bengali              ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯ ০
+       .>Oriya_-_ଓଡ଼ିଆ          ୧ ୨ ୩ ୪ ୫ ୬ ୭ ୮ ୯ ୦
+       .>Gurmukhi_-_ਪੰਜਾਬੀ     ੧ ੨ ੩ ੪ ੫ ੬ ੭ ੮ ੯ ੦
+       .>Gujarati             ૧ ૨ ૩ ૪ ૫ ૬ ૭ ૮ ૯ ૦
+       .>Devanagari           १ २ ३ ४ ५ ६ ७ ८ ९ ०
+       .>Arabic_(Western)     1 2 3 4 5 6 7 8 9 0
+       .>Roman                Ⅰ Ⅱ Ⅲ Ⅳ Ⅴ Ⅵ Ⅶ Ⅷ Ⅸ  
+       .>Tengwar                       
+       .>Klingon                        
+}]);
+
+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(
+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   А Б В  > Г  Д  Е Э  >  -Ѵ >  У З И  Ѳ  > І К Л М Н Х -Ѯ О  П Ц  Ч -Ҁ Р Ш С  Т
        .>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   А Б В  > Г  Д  Е Э  >  -Ѵ >  У З И  Ѳ  > І К Л М Н Х -Ѯ О  П Ц  Ч -Ҁ Р Ш С  Т