📄 language.pm
字号:
## Locale::Language - ISO two letter codes for language identification (ISO 639)## $Id: Language.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $#package Locale::Language;use strict;require 5.002;require Exporter;#-----------------------------------------------------------------------# Public Global Variables#-----------------------------------------------------------------------use vars qw($VERSION @ISA @EXPORT);$VERSION = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);@ISA = qw(Exporter);@EXPORT = qw(&code2language &language2code &all_language_codes &all_language_names );#-----------------------------------------------------------------------# Private Global Variables#-----------------------------------------------------------------------my %CODES = ();my %LANGUAGES = ();#=======================================================================## code2language ( CODE )##=======================================================================sub code2language{ my $code = shift; return undef unless defined $code; $code = lc($code); if (exists $CODES{$code}) { return $CODES{$code}; } else { #--------------------------------------------------------------- # no such language code! #--------------------------------------------------------------- return undef; }}#=======================================================================## language2code ( LANGUAGE )##=======================================================================sub language2code{ my $lang = shift; return undef unless defined $lang; $lang = lc($lang); if (exists $LANGUAGES{$lang}) { return $LANGUAGES{$lang}; } else { #--------------------------------------------------------------- # no such language! #--------------------------------------------------------------- return undef; }}#=======================================================================## all_language_codes()##=======================================================================sub all_language_codes{ return keys %CODES;}#=======================================================================## all_language_names()##=======================================================================sub all_language_names{ return values %CODES;}#=======================================================================# initialisation code - stuff the DATA into the CODES hash#======================================================================={ my $code; my $language; local $_; while (<DATA>) { next unless /\S/; chop; ($code, $language) = split(/:/, $_, 2); $CODES{$code} = $language; $LANGUAGES{"\L$language"} = $code; } close(DATA);}1;__DATA__aa:Afarab:Abkhazianae:Avestanaf:Afrikaansam:Amharicar:Arabicas:Assameseay:Aymaraaz:Azerbaijaniba:Bashkirbe:Belarusianbg:Bulgarianbh:Biharibi:Bislamabn:Bengalibo:Tibetanbr:Bretonbs:Bosnianca:Catalance:Chechench:Chamorroco:Corsicancs:Czechcu:Church Slaviccv:Chuvashcy:Welshda:Danishde:Germandz:Dzongkhael:Greeken:Englisheo:Esperantoes:Spanishet:Estonianeu:Basquefa:Persianfi:Finnishfj:Fijianfo:Faeroesefr:Frenchfy:Frisianga:Irishgd:Gaelic (Scots)gl:Gallegangn:Guaranigu:Gujaratigv:Manxha:Hausahe:Hebrewhi:Hindiho:Hiri Motuhr:Croatianhu:Hungarianhy:Armenianhz:Hereroia:Interlinguaid:Indonesianie:Interlingueik:Inupiaqis:Icelandicit:Italianiu:Inuktitutja:Japanesejw:Javaneseka:Georgianki:Kikuyukj:Kuanyamakk:Kazakhkl:Kalaallisutkm:Khmerkn:Kannadako:Koreanks:Kashmiriku:Kurdishkv:Komikw:Cornishky:Kirghizla:Latinlb:Letzeburgeschln:Lingalalo:Laolt:Lithuanianlv:Latvianmg:Malagasymh:Marshallmi:Maorimk:Macedonianml:Malayalammn:Mongolianmo:Moldavianmr:Marathims:Malaymt:Maltesemy:Burmesena:Naurunb:Norwegian Bokmalnd:Ndebele, Northne:Nepaling:Ndonganl:Dutchnn:Norwegian Nynorskno:Norwegiannr:Ndebele, Southnv:Navajony:Chichewa; Nyanjaoc:Occitan (post 1500)om:Oromoor:Oriyaos:Ossetian; Osseticpa:Panjabipi:Palipl:Polishps:Pushtopt:Portuguesequ:Quechuarm:Rhaeto-Romancern:Rundiro:Romanianru:Russianrw:Kinyarwandasa:Sanskritsc:Sardiniansd:Sindhise:Samisg:Sangosi:Sinhalesesk:Slovaksl:Sloveniansm:Samoansn:Shonaso:Somalisq:Albaniansr:Serbianss:Swatist:Sothosu:Sundanesesv:Swedishsw:Swahilita:Tamilte:Telugutg:Tajikth:Thaiti:Tigrinyatk:Turkmentl:Tagalogtn:Tswanato:Tongatr:Turkishts:Tsongatt:Tatartw:Twiug:Uighuruk:Ukrainianur:Urduuz:Uzbekvi:Vietnamesevo:Volapukwo:Wolofxh:Xhosayi:Yiddishyo:Yorubaza:Zhuangzh:Chinesezu:Zulu⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -