-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
- .>Osmanya 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩 𐒠
-}]);
+my %scriptname = (
+ arab => 'Arabic',
+ armi => 'Aramaic',
+ bali => 'Balinese',
+ beng => 'Bengali',
+ brah => 'Brahmi',
+ cham => 'Cham',
+ copt => 'Coptic',
+ cyrl => 'Cyrillic',
+ deva => 'Devanagari',
+ ethi => 'Ethiopic',
+ goth => 'Gothic',
+ grek => 'Greek',
+ gujr => 'Gujarati',
+ guru => 'Gurmukhi', # ਪੰਜਾਬੀ ੧
+ hans => 'Chinese',
+ hant => 'Chinese',
+ hebr => 'Hebrew',
+ ipa => 'IPA',
+ iso => 'ISO',
+ ital => 'Old_Italic',
+ java => 'Javanese',
+ kali => 'Kayah_Li',
+ khmr => 'Khmer',
+ knda => 'Kannada',
+ lana => 'Tai_Tham',
+ laoo => 'Lao',
+ latn => '<a href="/latin">Latin</a>',
+ lepc => 'Lepcha',
+ lyci => 'Lycian',
+ lydi => 'Lydian',
+ mlym => 'Malayalam', # മലയാളം ൧
+ mymr => 'Myanmar',
+ olck => 'Ol_Chiki',
+ orya => 'Oriya', # ଓଡ଼ିଆ
+ osma => 'Osmanya',
+ phnx => 'Phoenician',
+ samr => 'Samaritan',
+ saur => 'Saurashtra',
+ sinh => 'Sinhala',
+ sund => 'Sundanese',
+ syrc => 'Syriac',
+ talu => 'New_Tai_Lue',
+ taml => 'Tamil', # தமிழ் ௧
+ telu => 'Telugu',
+ teng => 'Tengwar',
+ tglg => 'Baybayin',
+ thai => 'Thai', # ไทย
+ tibt => 'Tibetan',
+ tlh => 'Klingon',