2 # Locale::Country - ISO codes for country identification (ISO 3166)
4 # $Id: Country.pm,v 2.6 2002/07/10 16:33:27 neilb Exp $
7 package Locale::Country;
13 use Locale::Constants;
16 #-----------------------------------------------------------------------
17 # Public Global Variables
18 #-----------------------------------------------------------------------
19 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
20 $VERSION = sprintf("%d.%02d", q$Revision: 2.6 $ =~ /(\d+)\.(\d+)/);
22 @EXPORT = qw(code2country country2code
23 all_country_codes all_country_names
25 LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC);
27 #-----------------------------------------------------------------------
28 # Private Global Variables
29 #-----------------------------------------------------------------------
34 #=======================================================================
36 # code2country ( CODE [, CODESET ] )
38 #=======================================================================
42 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
45 return undef unless defined $code;
47 #-------------------------------------------------------------------
48 # Make sure the code is in the right form before we use it
49 # to look up the corresponding country.
50 # We have to sprintf because the codes are given as 3-digits,
51 # with leading 0's. Eg 052 for Barbados.
52 #-------------------------------------------------------------------
53 if ($codeset == LOCALE_CODE_NUMERIC)
55 return undef if ($code =~ /\D/);
56 $code = sprintf("%.3d", $code);
63 if (exists $CODES->[$codeset]->{$code})
65 return $CODES->[$codeset]->{$code};
69 #---------------------------------------------------------------
70 # no such country code!
71 #---------------------------------------------------------------
77 #=======================================================================
79 # country2code ( NAME [, CODESET ] )
81 #=======================================================================
85 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
88 return undef unless defined $country;
89 $country = lc($country);
90 if (exists $COUNTRIES->[$codeset]->{$country})
92 return $COUNTRIES->[$codeset]->{$country};
96 #---------------------------------------------------------------
98 #---------------------------------------------------------------
104 #=======================================================================
106 # country_code2code ( NAME [, CODESET ] )
108 #=======================================================================
109 sub country_code2code
111 (@_ == 3) or croak "country_code2code() takes 3 arguments!";
120 return undef if $inset == $outset;
121 $country = code2country($code, $inset);
122 return undef if not defined $country;
123 $outcode = country2code($country, $outset);
128 #=======================================================================
130 # all_country_codes ( [ CODESET ] )
132 #=======================================================================
133 sub all_country_codes
135 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
137 return keys %{ $CODES->[$codeset] };
141 #=======================================================================
143 # all_country_names ( [ CODESET ] )
145 #=======================================================================
146 sub all_country_names
148 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
150 return values %{ $CODES->[$codeset] };
154 #=======================================================================
156 # alias_code ( ALIAS => CODE [ , CODESET ] )
158 # Add an alias for an existing code. If the CODESET isn't specified,
159 # then we use the default (currently the alpha-2 codeset).
161 # Locale::Country::alias_code('uk' => 'gb');
163 #=======================================================================
168 my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
173 if (not exists $CODES->[$codeset]->{$real})
175 carp "attempt to alias \"$alias\" to unknown country code \"$real\"\n";
178 $country = $CODES->[$codeset]->{$real};
179 $CODES->[$codeset]->{$alias} = $country;
180 $COUNTRIES->[$codeset]->{"\L$country"} = $alias;
185 # old name of function for backwards compatibility
186 *_alias_code = *alias_code;
189 #=======================================================================
193 # change the official name for a country, eg:
194 # gb => 'Great Britain'
195 # rather than the standard 'United Kingdom'. The original is retained
196 # as an alias, but the new name will be returned if you lookup the
199 #=======================================================================
203 my $new_name = shift;
204 my $codeset = @_ > 0 ? shift : _code2codeset($code);
209 if (not defined $codeset)
211 carp "rename_country(): unknown country code \"$code\"\n";
215 $country = $CODES->[$codeset]->{$code};
217 foreach my $cset (LOCALE_CODE_ALPHA_2,
221 if ($cset == $codeset)
227 $c = country_code2code($code, $codeset, $cset);
230 $CODES->[$cset]->{$c} = $new_name;
231 $COUNTRIES->[$cset]->{"\L$new_name"} = $c;
238 #=======================================================================
242 # given a country code in an unknown codeset, return the codeset
243 # it is from, or undef.
245 #=======================================================================
251 foreach my $codeset (LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3,
254 return $codeset if (exists $CODES->[$codeset]->{$code})
261 #=======================================================================
263 # initialisation code - stuff the DATA into the ALPHA2 hash
265 #=======================================================================
267 my ($alpha2, $alpha3, $numeric);
268 my ($country, @countries);
275 ($alpha2, $alpha3, $numeric, @countries) = split(/:/, $_);
277 $CODES->[LOCALE_CODE_ALPHA_2]->{$alpha2} = $countries[0];
278 foreach $country (@countries)
280 $COUNTRIES->[LOCALE_CODE_ALPHA_2]->{"\L$country"} = $alpha2;
285 $CODES->[LOCALE_CODE_ALPHA_3]->{$alpha3} = $countries[0];
286 foreach $country (@countries)
288 $COUNTRIES->[LOCALE_CODE_ALPHA_3]->{"\L$country"} = $alpha3;
294 $CODES->[LOCALE_CODE_NUMERIC]->{$numeric} = $countries[0];
295 foreach $country (@countries)
297 $COUNTRIES->[LOCALE_CODE_NUMERIC]->{"\L$country"} = $numeric;
310 ae:are:784:United Arab Emirates
311 af:afg:004:Afghanistan
312 ag:atg:028:Antigua and Barbuda
316 an:ant:530:Netherlands Antilles
318 aq:ata:010:Antarctica
320 as:asm:016:American Samoa
324 az:aze:031:Azerbaijan
325 ba:bih:070:Bosnia and Herzegovina
327 bd:bgd:050:Bangladesh
329 bf:bfa:854:Burkina Faso
335 bn:brn:096:Brunei Darussalam
340 bv:bvt:074:Bouvet Island
345 cc:cck:166:Cocos (Keeling) Islands
346 cf:caf:140:Central African Republic
347 cg:cog:178:Congo:Congo, Republic of the
348 ch:che:756:Switzerland
349 ci:civ:384:Cote D'Ivoire
350 ck:cok:184:Cook Islands
355 cr:cri:188:Costa Rica
357 cv:cpv:132:Cape Verde
358 cx:cxr:162:Christmas Island
360 cz:cze:203:Czech Republic
365 do:dom:214:Dominican Republic
370 eh:esh:732:Western Sahara
376 fk:flk:238:Falkland Islands (Malvinas):Falkland Islands (Islas Malvinas)
377 fm:fsm:583:Micronesia, Federated States of
378 fo:fro:234:Faroe Islands
380 fx:fxx:249:France, Metropolitan
382 gb:gbr:826:United Kingdom:Great Britain
385 gf:guf:254:French Guiana
391 gp:glp:312:Guadeloupe
392 gq:gnq:226:Equatorial Guinea
394 gs:sgs:239:South Georgia and the South Sandwich Islands
397 gw:gnb:624:Guinea-Bissau
400 hm:hmd:334:Heard Island and McDonald Islands
409 io:iot:086:British Indian Ocean Territory
411 ir:irn:364:Iran, Islamic Republic of:Iran
418 kg:kgz:417:Kyrgyzstan
422 kn:kna:659:Saint Kitts and Nevis
423 kp:prk:408:Korea, Democratic People's Republic of:Korea, North:North Korea
424 kr:kor:410:Korea, Republic of:Korea, South:South Korea
426 ky:cym:136:Cayman Islands
427 kz:kaz:398:Kazakhstan:Kazakstan
428 la:lao:418:Lao People's Democratic Republic
430 lc:lca:662:Saint Lucia
431 li:lie:438:Liechtenstein
436 lu:lux:442:Luxembourg
438 ly:lby:434:Libyan Arab Jamahiriya:Libya
441 md:mda:498:Moldova, Republic of:Moldova
442 mg:mdg:450:Madagascar
443 mh:mhl:584:Marshall Islands
444 mk:mkd:807:Macedonia, the Former Yugoslav Republic of:Macedonia, Former Yugoslav Republic of:Macedonia
448 mo:mac:446:Macao:Macau
449 mp:mnp:580:Northern Mariana Islands
450 mq:mtq:474:Martinique
451 mr:mrt:478:Mauritania
452 ms:msr:500:Montserrat
459 mz:moz:508:Mozambique
461 nc:ncl:540:New Caledonia
463 nf:nfk:574:Norfolk Island
466 nl:nld:528:Netherlands
471 nz:nzl:554:New Zealand
475 pf:pyf:258:French Polynesia
476 pg:png:598:Papua New Guinea
477 ph:phl:608:Philippines
480 pm:spm:666:Saint Pierre and Miquelon
481 pn:pcn:612:Pitcairn:Pitcairn Island
482 pr:pri:630:Puerto Rico
483 ps:pse:275:Palestinian Territory, Occupied
490 ru:rus:643:Russian Federation:Russia
492 sa:sau:682:Saudi Arabia
493 sb:slb:090:Solomon Islands
494 sc:syc:690:Seychelles
498 sh:shn:654:Saint Helena
500 sj:sjm:744:Svalbard and Jan Mayen:Jan Mayen:Svalbard
502 sl:sle:694:Sierra Leone
503 sm:smr:674:San Marino
507 st:stp:678:Sao Tome and Principe
508 sv:slv:222:El Salvador
509 sy:syr:760:Syrian Arab Republic:Syria
511 tc:tca:796:Turks and Caicos Islands
513 tf:atf:260:French Southern Territories
516 tj:tjk:762:Tajikistan
518 tm:tkm:795:Turkmenistan
521 tl:tls:626:East Timor
523 tt:tto:780:Trinidad and Tobago
525 tw:twn:158:Taiwan, Province of China:Taiwan
526 tz:tza:834:Tanzania, United Republic of:Tanzania
529 um:umi:581:United States Minor Outlying Islands
530 us:usa:840:United States:USA:United States of America
532 uz:uzb:860:Uzbekistan
533 va:vat:336:Holy See (Vatican City State):Holy See (Vatican City)
534 vc:vct:670:Saint Vincent and the Grenadines
536 vg:vgb:092:Virgin Islands, British:British Virgin Islands
537 vi:vir:850:Virgin Islands, U.S.
540 wf:wlf:876:Wallis and Futuna
544 yu:yug:891:Yugoslavia
545 za:zaf:710:South Africa
547 zr:zar:180:Zaire:Congo, The Democratic Republic of the:Congo, Democratic Republic of the