From 91551ba60a8f0170ff90f05e60c4fb8e21226d2a Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Thu, 4 Mar 2010 19:56:28 +0000 Subject: [PATCH 1/1] script: add table to compare digits 0-9 --- script.plp | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) diff --git a/script.plp b/script.plp index ab5ed6b..0f40c68 100644 --- a/script.plp +++ b/script.plp @@ -28,6 +28,44 @@ use Shiar_Sheet::FormatChar; 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 '

%s

'."\n\n", shift; + while (ref $_[0] and $_ = shift) { + print $glyphs->table($_); + } + print '
'; + } +} + +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 А Б В > Г Д Е Э > -Ѵ > У З И Ѳ > І К Л М Н Х -Ѯ О П Ц Ч -Ҁ Р Ш С Т -- 2.30.0