[Summary view] [Print] [Text view]

   1  #
   2  # Locale::Language - ISO two letter codes for language identification (ISO 639)
   3  #
   4  # $Id: Language.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $
   5  #
   6  
   7  package Locale::Language;
   8  use strict;
   9  require 5.002;
  10  
  11  require Exporter;
  12  
  13  #-----------------------------------------------------------------------
  14  #    Public Global Variables
  15  #-----------------------------------------------------------------------
  16  use vars qw($VERSION @ISA @EXPORT);
  17  $VERSION      = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);
  18  @ISA          = qw(Exporter);
  19  @EXPORT       = qw(&code2language &language2code
  20                     &all_language_codes &all_language_names );
  21  
  22  #-----------------------------------------------------------------------
  23  #    Private Global Variables
  24  #-----------------------------------------------------------------------
  25  my %CODES     = ();
  26  my %LANGUAGES = ();
  27  
  28  
  29  #=======================================================================
  30  #
  31  # code2language ( CODE )
  32  #
  33  #=======================================================================
  34  sub code2language
  35  {
  36      my $code = shift;
  37  
  38  
  39      return undef unless defined $code;
  40      $code = lc($code);
  41      if (exists $CODES{$code})
  42      {
  43          return $CODES{$code};
  44      }
  45      else
  46      {
  47          #---------------------------------------------------------------
  48          # no such language code!
  49          #---------------------------------------------------------------
  50          return undef;
  51      }
  52  }
  53  
  54  
  55  #=======================================================================
  56  #
  57  # language2code ( LANGUAGE )
  58  #
  59  #=======================================================================
  60  sub language2code
  61  {
  62      my $lang = shift;
  63  
  64  
  65      return undef unless defined $lang;
  66      $lang = lc($lang);
  67      if (exists $LANGUAGES{$lang})
  68      {
  69          return $LANGUAGES{$lang};
  70      }
  71      else
  72      {
  73          #---------------------------------------------------------------
  74          # no such language!
  75          #---------------------------------------------------------------
  76          return undef;
  77      }
  78  }
  79  
  80  
  81  #=======================================================================
  82  #
  83  # all_language_codes()
  84  #
  85  #=======================================================================
  86  sub all_language_codes
  87  {
  88      return keys %CODES;
  89  }
  90  
  91  
  92  #=======================================================================
  93  #
  94  # all_language_names()
  95  #
  96  #=======================================================================
  97  sub all_language_names
  98  {
  99      return values %CODES;
 100  }
 101  
 102  
 103  #=======================================================================
 104  # initialisation code - stuff the DATA into the CODES hash
 105  #=======================================================================
 106  {
 107      my    $code;
 108      my    $language;
 109      local $_;
 110  
 111  
 112      while (<DATA>)
 113      {
 114          next unless /\S/;
 115          chop;
 116          ($code, $language) = split(/:/, $_, 2);
 117          $CODES{$code} = $language;
 118          $LANGUAGES{"\L$language"} = $code;
 119      }
 120  
 121      close(DATA);
 122  }
 123  
 124  1;
 125  
 126  __DATA__
 127  aa:Afar
 128  ab:Abkhazian
 129  ae:Avestan
 130  af:Afrikaans
 131  am:Amharic
 132  ar:Arabic
 133  as:Assamese
 134  ay:Aymara
 135  az:Azerbaijani
 136  
 137  ba:Bashkir
 138  be:Belarusian
 139  bg:Bulgarian
 140  bh:Bihari
 141  bi:Bislama
 142  bn:Bengali
 143  bo:Tibetan
 144  br:Breton
 145  bs:Bosnian
 146  
 147  ca:Catalan
 148  ce:Chechen
 149  ch:Chamorro
 150  co:Corsican
 151  cs:Czech
 152  cu:Church Slavic
 153  cv:Chuvash
 154  cy:Welsh
 155  
 156  da:Danish
 157  de:German
 158  dz:Dzongkha
 159  
 160  el:Greek
 161  en:English
 162  eo:Esperanto
 163  es:Spanish
 164  et:Estonian
 165  eu:Basque
 166  
 167  fa:Persian
 168  fi:Finnish
 169  fj:Fijian
 170  fo:Faeroese
 171  fr:French
 172  fy:Frisian
 173  
 174  ga:Irish
 175  gd:Gaelic (Scots)
 176  gl:Gallegan
 177  gn:Guarani
 178  gu:Gujarati
 179  gv:Manx
 180  
 181  ha:Hausa
 182  he:Hebrew
 183  hi:Hindi
 184  ho:Hiri Motu
 185  hr:Croatian
 186  hu:Hungarian
 187  hy:Armenian
 188  hz:Herero
 189  
 190  ia:Interlingua
 191  id:Indonesian
 192  ie:Interlingue
 193  ik:Inupiaq
 194  is:Icelandic
 195  it:Italian
 196  iu:Inuktitut
 197  
 198  ja:Japanese
 199  jw:Javanese
 200  
 201  ka:Georgian
 202  ki:Kikuyu
 203  kj:Kuanyama
 204  kk:Kazakh
 205  kl:Kalaallisut
 206  km:Khmer
 207  kn:Kannada
 208  ko:Korean
 209  ks:Kashmiri
 210  ku:Kurdish
 211  kv:Komi
 212  kw:Cornish
 213  ky:Kirghiz
 214  
 215  la:Latin
 216  lb:Letzeburgesch
 217  ln:Lingala
 218  lo:Lao
 219  lt:Lithuanian
 220  lv:Latvian
 221  
 222  mg:Malagasy
 223  mh:Marshall
 224  mi:Maori
 225  mk:Macedonian
 226  ml:Malayalam
 227  mn:Mongolian
 228  mo:Moldavian
 229  mr:Marathi
 230  ms:Malay
 231  mt:Maltese
 232  my:Burmese
 233  
 234  na:Nauru
 235  nb:Norwegian Bokmal
 236  nd:Ndebele, North
 237  ne:Nepali
 238  ng:Ndonga
 239  nl:Dutch
 240  nn:Norwegian Nynorsk
 241  no:Norwegian
 242  nr:Ndebele, South
 243  nv:Navajo
 244  ny:Chichewa; Nyanja
 245  
 246  oc:Occitan (post 1500)
 247  om:Oromo
 248  or:Oriya
 249  os:Ossetian; Ossetic
 250  
 251  pa:Panjabi
 252  pi:Pali
 253  pl:Polish
 254  ps:Pushto
 255  pt:Portuguese
 256  
 257  qu:Quechua
 258  
 259  rm:Rhaeto-Romance
 260  rn:Rundi
 261  ro:Romanian
 262  ru:Russian
 263  rw:Kinyarwanda
 264  
 265  sa:Sanskrit
 266  sc:Sardinian
 267  sd:Sindhi
 268  se:Sami
 269  sg:Sango
 270  si:Sinhalese
 271  sk:Slovak
 272  sl:Slovenian
 273  sm:Samoan
 274  sn:Shona
 275  so:Somali
 276  sq:Albanian
 277  sr:Serbian
 278  ss:Swati
 279  st:Sotho
 280  su:Sundanese
 281  sv:Swedish
 282  sw:Swahili
 283  
 284  ta:Tamil
 285  te:Telugu
 286  tg:Tajik
 287  th:Thai
 288  ti:Tigrinya
 289  tk:Turkmen
 290  tl:Tagalog
 291  tn:Tswana
 292  to:Tonga
 293  tr:Turkish
 294  ts:Tsonga
 295  tt:Tatar
 296  tw:Twi
 297  
 298  ug:Uighur
 299  uk:Ukrainian
 300  ur:Urdu
 301  uz:Uzbek
 302  
 303  vi:Vietnamese
 304  vo:Volapuk
 305  
 306  wo:Wolof
 307  
 308  xh:Xhosa
 309  
 310  yi:Yiddish
 311  yo:Yoruba
 312  
 313  za:Zhuang
 314  zh:Chinese
 315  zu:Zulu