1 | #
|
---|
2 | # Locale::Country - ISO codes for country identification (ISO 3166)
|
---|
3 | #
|
---|
4 | # $Id: Country.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $
|
---|
5 | #
|
---|
6 |
|
---|
7 | package Locale::Country;
|
---|
8 | use strict;
|
---|
9 | require 5.002;
|
---|
10 |
|
---|
11 | require Exporter;
|
---|
12 | use Carp;
|
---|
13 | use Locale::Constants;
|
---|
14 |
|
---|
15 |
|
---|
16 | #-----------------------------------------------------------------------
|
---|
17 | # Public Global Variables
|
---|
18 | #-----------------------------------------------------------------------
|
---|
19 | use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
---|
20 | $VERSION = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);
|
---|
21 | @ISA = qw(Exporter);
|
---|
22 | @EXPORT = qw(code2country country2code
|
---|
23 | all_country_codes all_country_names
|
---|
24 | country_code2code
|
---|
25 | LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC);
|
---|
26 |
|
---|
27 | #-----------------------------------------------------------------------
|
---|
28 | # Private Global Variables
|
---|
29 | #-----------------------------------------------------------------------
|
---|
30 | my $CODES = [];
|
---|
31 | my $COUNTRIES = [];
|
---|
32 |
|
---|
33 |
|
---|
34 | #=======================================================================
|
---|
35 | #
|
---|
36 | # code2country ( CODE [, CODESET ] )
|
---|
37 | #
|
---|
38 | #=======================================================================
|
---|
39 | sub code2country
|
---|
40 | {
|
---|
41 | my $code = shift;
|
---|
42 | my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
|
---|
43 |
|
---|
44 |
|
---|
45 | return undef unless defined $code;
|
---|
46 |
|
---|
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)
|
---|
54 | {
|
---|
55 | return undef if ($code =~ /\D/);
|
---|
56 | $code = sprintf("%.3d", $code);
|
---|
57 | }
|
---|
58 | else
|
---|
59 | {
|
---|
60 | $code = lc($code);
|
---|
61 | }
|
---|
62 |
|
---|
63 | if (exists $CODES->[$codeset]->{$code})
|
---|
64 | {
|
---|
65 | return $CODES->[$codeset]->{$code};
|
---|
66 | }
|
---|
67 | else
|
---|
68 | {
|
---|
69 | #---------------------------------------------------------------
|
---|
70 | # no such country code!
|
---|
71 | #---------------------------------------------------------------
|
---|
72 | return undef;
|
---|
73 | }
|
---|
74 | }
|
---|
75 |
|
---|
76 |
|
---|
77 | #=======================================================================
|
---|
78 | #
|
---|
79 | # country2code ( NAME [, CODESET ] )
|
---|
80 | #
|
---|
81 | #=======================================================================
|
---|
82 | sub country2code
|
---|
83 | {
|
---|
84 | my $country = shift;
|
---|
85 | my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
|
---|
86 |
|
---|
87 |
|
---|
88 | return undef unless defined $country;
|
---|
89 | $country = lc($country);
|
---|
90 | if (exists $COUNTRIES->[$codeset]->{$country})
|
---|
91 | {
|
---|
92 | return $COUNTRIES->[$codeset]->{$country};
|
---|
93 | }
|
---|
94 | else
|
---|
95 | {
|
---|
96 | #---------------------------------------------------------------
|
---|
97 | # no such country!
|
---|
98 | #---------------------------------------------------------------
|
---|
99 | return undef;
|
---|
100 | }
|
---|
101 | }
|
---|
102 |
|
---|
103 |
|
---|
104 | #=======================================================================
|
---|
105 | #
|
---|
106 | # country_code2code ( NAME [, CODESET ] )
|
---|
107 | #
|
---|
108 | #=======================================================================
|
---|
109 | sub country_code2code
|
---|
110 | {
|
---|
111 | (@_ == 3) or croak "country_code2code() takes 3 arguments!";
|
---|
112 |
|
---|
113 | my $code = shift;
|
---|
114 | my $inset = shift;
|
---|
115 | my $outset = shift;
|
---|
116 | my $outcode;
|
---|
117 | my $country;
|
---|
118 |
|
---|
119 |
|
---|
120 | return undef if $inset == $outset;
|
---|
121 | $country = code2country($code, $inset);
|
---|
122 | return undef if not defined $country;
|
---|
123 | $outcode = country2code($country, $outset);
|
---|
124 | return $outcode;
|
---|
125 | }
|
---|
126 |
|
---|
127 |
|
---|
128 | #=======================================================================
|
---|
129 | #
|
---|
130 | # all_country_codes ( [ CODESET ] )
|
---|
131 | #
|
---|
132 | #=======================================================================
|
---|
133 | sub all_country_codes
|
---|
134 | {
|
---|
135 | my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
|
---|
136 |
|
---|
137 | return keys %{ $CODES->[$codeset] };
|
---|
138 | }
|
---|
139 |
|
---|
140 |
|
---|
141 | #=======================================================================
|
---|
142 | #
|
---|
143 | # all_country_names ( [ CODESET ] )
|
---|
144 | #
|
---|
145 | #=======================================================================
|
---|
146 | sub all_country_names
|
---|
147 | {
|
---|
148 | my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
|
---|
149 |
|
---|
150 | return values %{ $CODES->[$codeset] };
|
---|
151 | }
|
---|
152 |
|
---|
153 |
|
---|
154 | #=======================================================================
|
---|
155 | #
|
---|
156 | # alias_code ( ALIAS => CODE [ , CODESET ] )
|
---|
157 | #
|
---|
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).
|
---|
160 | #
|
---|
161 | # Locale::Country::alias_code('uk' => 'gb');
|
---|
162 | #
|
---|
163 | #=======================================================================
|
---|
164 | sub alias_code
|
---|
165 | {
|
---|
166 | my $alias = shift;
|
---|
167 | my $real = shift;
|
---|
168 | my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;
|
---|
169 |
|
---|
170 | my $country;
|
---|
171 |
|
---|
172 |
|
---|
173 | if (not exists $CODES->[$codeset]->{$real})
|
---|
174 | {
|
---|
175 | carp "attempt to alias \"$alias\" to unknown country code \"$real\"\n";
|
---|
176 | return undef;
|
---|
177 | }
|
---|
178 | $country = $CODES->[$codeset]->{$real};
|
---|
179 | $CODES->[$codeset]->{$alias} = $country;
|
---|
180 | $COUNTRIES->[$codeset]->{"\L$country"} = $alias;
|
---|
181 |
|
---|
182 | return $alias;
|
---|
183 | }
|
---|
184 |
|
---|
185 | # old name of function for backwards compatibility
|
---|
186 | *_alias_code = *alias_code;
|
---|
187 |
|
---|
188 |
|
---|
189 | #=======================================================================
|
---|
190 | #
|
---|
191 | # rename_country
|
---|
192 | #
|
---|
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
|
---|
197 | # name from code.
|
---|
198 | #
|
---|
199 | #=======================================================================
|
---|
200 | sub rename_country
|
---|
201 | {
|
---|
202 | my $code = shift;
|
---|
203 | my $new_name = shift;
|
---|
204 | my $codeset = @_ > 0 ? shift : _code2codeset($code);
|
---|
205 | my $country;
|
---|
206 | my $c;
|
---|
207 |
|
---|
208 |
|
---|
209 | if (not defined $codeset)
|
---|
210 | {
|
---|
211 | carp "rename_country(): unknown country code \"$code\"\n";
|
---|
212 | return 0;
|
---|
213 | }
|
---|
214 |
|
---|
215 | $country = $CODES->[$codeset]->{$code};
|
---|
216 |
|
---|
217 | foreach my $cset (LOCALE_CODE_ALPHA_2,
|
---|
218 | LOCALE_CODE_ALPHA_3,
|
---|
219 | LOCALE_CODE_NUMERIC)
|
---|
220 | {
|
---|
221 | if ($cset == $codeset)
|
---|
222 | {
|
---|
223 | $c = $code;
|
---|
224 | }
|
---|
225 | else
|
---|
226 | {
|
---|
227 | $c = country_code2code($code, $codeset, $cset);
|
---|
228 | }
|
---|
229 |
|
---|
230 | $CODES->[$cset]->{$c} = $new_name;
|
---|
231 | $COUNTRIES->[$cset]->{"\L$new_name"} = $c;
|
---|
232 | }
|
---|
233 |
|
---|
234 | return 1;
|
---|
235 | }
|
---|
236 |
|
---|
237 |
|
---|
238 | #=======================================================================
|
---|
239 | #
|
---|
240 | # _code2codeset
|
---|
241 | #
|
---|
242 | # given a country code in an unknown codeset, return the codeset
|
---|
243 | # it is from, or undef.
|
---|
244 | #
|
---|
245 | #=======================================================================
|
---|
246 | sub _code2codeset
|
---|
247 | {
|
---|
248 | my $code = shift;
|
---|
249 |
|
---|
250 |
|
---|
251 | foreach my $codeset (LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3,
|
---|
252 | LOCALE_CODE_NUMERIC)
|
---|
253 | {
|
---|
254 | return $codeset if (exists $CODES->[$codeset]->{$code})
|
---|
255 | }
|
---|
256 |
|
---|
257 | return undef;
|
---|
258 | }
|
---|
259 |
|
---|
260 |
|
---|
261 | #=======================================================================
|
---|
262 | #
|
---|
263 | # initialisation code - stuff the DATA into the ALPHA2 hash
|
---|
264 | #
|
---|
265 | #=======================================================================
|
---|
266 | {
|
---|
267 | my ($alpha2, $alpha3, $numeric);
|
---|
268 | my ($country, @countries);
|
---|
269 | local $_;
|
---|
270 |
|
---|
271 |
|
---|
272 | while (<DATA>)
|
---|
273 | {
|
---|
274 | next unless /\S/;
|
---|
275 | chop;
|
---|
276 | ($alpha2, $alpha3, $numeric, @countries) = split(/:/, $_);
|
---|
277 |
|
---|
278 | $CODES->[LOCALE_CODE_ALPHA_2]->{$alpha2} = $countries[0];
|
---|
279 | foreach $country (@countries)
|
---|
280 | {
|
---|
281 | $COUNTRIES->[LOCALE_CODE_ALPHA_2]->{"\L$country"} = $alpha2;
|
---|
282 | }
|
---|
283 |
|
---|
284 | if ($alpha3)
|
---|
285 | {
|
---|
286 | $CODES->[LOCALE_CODE_ALPHA_3]->{$alpha3} = $countries[0];
|
---|
287 | foreach $country (@countries)
|
---|
288 | {
|
---|
289 | $COUNTRIES->[LOCALE_CODE_ALPHA_3]->{"\L$country"} = $alpha3;
|
---|
290 | }
|
---|
291 | }
|
---|
292 |
|
---|
293 | if ($numeric)
|
---|
294 | {
|
---|
295 | $CODES->[LOCALE_CODE_NUMERIC]->{$numeric} = $countries[0];
|
---|
296 | foreach $country (@countries)
|
---|
297 | {
|
---|
298 | $COUNTRIES->[LOCALE_CODE_NUMERIC]->{"\L$country"} = $numeric;
|
---|
299 | }
|
---|
300 | }
|
---|
301 |
|
---|
302 | }
|
---|
303 |
|
---|
304 | close(DATA);
|
---|
305 | }
|
---|
306 |
|
---|
307 | 1;
|
---|
308 |
|
---|
309 | __DATA__
|
---|
310 | ad:and:020:Andorra
|
---|
311 | ae:are:784:United Arab Emirates
|
---|
312 | af:afg:004:Afghanistan
|
---|
313 | ag:atg:028:Antigua and Barbuda
|
---|
314 | ai:aia:660:Anguilla
|
---|
315 | al:alb:008:Albania
|
---|
316 | am:arm:051:Armenia
|
---|
317 | an:ant:530:Netherlands Antilles
|
---|
318 | ao:ago:024:Angola
|
---|
319 | aq:ata:010:Antarctica
|
---|
320 | ar:arg:032:Argentina
|
---|
321 | as:asm:016:American Samoa
|
---|
322 | at:aut:040:Austria
|
---|
323 | au:aus:036:Australia
|
---|
324 | aw:abw:533:Aruba
|
---|
325 | ax:ala:248:Aland Islands
|
---|
326 | az:aze:031:Azerbaijan
|
---|
327 | ba:bih:070:Bosnia and Herzegovina
|
---|
328 | bb:brb:052:Barbados
|
---|
329 | bd:bgd:050:Bangladesh
|
---|
330 | be:bel:056:Belgium
|
---|
331 | bf:bfa:854:Burkina Faso
|
---|
332 | bg:bgr:100:Bulgaria
|
---|
333 | bh:bhr:048:Bahrain
|
---|
334 | bi:bdi:108:Burundi
|
---|
335 | bj:ben:204:Benin
|
---|
336 | bm:bmu:060:Bermuda
|
---|
337 | bn:brn:096:Brunei Darussalam
|
---|
338 | bo:bol:068:Bolivia
|
---|
339 | br:bra:076:Brazil
|
---|
340 | bs:bhs:044:Bahamas
|
---|
341 | bt:btn:064:Bhutan
|
---|
342 | bv:bvt:074:Bouvet Island
|
---|
343 | bw:bwa:072:Botswana
|
---|
344 | by:blr:112:Belarus
|
---|
345 | bz:blz:084:Belize
|
---|
346 | ca:can:124:Canada
|
---|
347 | cc:cck:166:Cocos (Keeling) Islands
|
---|
348 | cd:cod:180:Congo, The Democratic Republic of the:Zaire:Congo, Democratic Republic of the
|
---|
349 | cf:caf:140:Central African Republic
|
---|
350 | cg:cog:178:Congo:Congo, Republic of the
|
---|
351 | ch:che:756:Switzerland
|
---|
352 | ci:civ:384:Cote D'Ivoire
|
---|
353 | ck:cok:184:Cook Islands
|
---|
354 | cl:chl:152:Chile
|
---|
355 | cm:cmr:120:Cameroon
|
---|
356 | cn:chn:156:China
|
---|
357 | co:col:170:Colombia
|
---|
358 | cr:cri:188:Costa Rica
|
---|
359 | cs:scg:891:Serbia and Montenegro:Yugoslavia
|
---|
360 | cu:cub:192:Cuba
|
---|
361 | cv:cpv:132:Cape Verde
|
---|
362 | cx:cxr:162:Christmas Island
|
---|
363 | cy:cyp:196:Cyprus
|
---|
364 | cz:cze:203:Czech Republic
|
---|
365 | de:deu:276:Germany
|
---|
366 | dj:dji:262:Djibouti
|
---|
367 | dk:dnk:208:Denmark
|
---|
368 | dm:dma:212:Dominica
|
---|
369 | do:dom:214:Dominican Republic
|
---|
370 | dz:dza:012:Algeria
|
---|
371 | ec:ecu:218:Ecuador
|
---|
372 | ee:est:233:Estonia
|
---|
373 | eg:egy:818:Egypt
|
---|
374 | eh:esh:732:Western Sahara
|
---|
375 | er:eri:232:Eritrea
|
---|
376 | es:esp:724:Spain
|
---|
377 | et:eth:231:Ethiopia
|
---|
378 | fi:fin:246:Finland
|
---|
379 | fj:fji:242:Fiji
|
---|
380 | fk:flk:238:Falkland Islands (Malvinas):Falkland Islands (Islas Malvinas)
|
---|
381 | fm:fsm:583:Micronesia, Federated States of
|
---|
382 | fo:fro:234:Faroe Islands
|
---|
383 | fr:fra:250:France
|
---|
384 | fx:fxx:249:France, Metropolitan
|
---|
385 | ga:gab:266:Gabon
|
---|
386 | gb:gbr:826:United Kingdom:Great Britain
|
---|
387 | gd:grd:308:Grenada
|
---|
388 | ge:geo:268:Georgia
|
---|
389 | gf:guf:254:French Guiana
|
---|
390 | gh:gha:288:Ghana
|
---|
391 | gi:gib:292:Gibraltar
|
---|
392 | gl:grl:304:Greenland
|
---|
393 | gm:gmb:270:Gambia
|
---|
394 | gn:gin:324:Guinea
|
---|
395 | gp:glp:312:Guadeloupe
|
---|
396 | gq:gnq:226:Equatorial Guinea
|
---|
397 | gr:grc:300:Greece
|
---|
398 | gs:sgs:239:South Georgia and the South Sandwich Islands
|
---|
399 | gt:gtm:320:Guatemala
|
---|
400 | gu:gum:316:Guam
|
---|
401 | gw:gnb:624:Guinea-Bissau
|
---|
402 | gy:guy:328:Guyana
|
---|
403 | hk:hkg:344:Hong Kong
|
---|
404 | hm:hmd:334:Heard Island and McDonald Islands
|
---|
405 | hn:hnd:340:Honduras
|
---|
406 | hr:hrv:191:Croatia
|
---|
407 | ht:hti:332:Haiti
|
---|
408 | hu:hun:348:Hungary
|
---|
409 | id:idn:360:Indonesia
|
---|
410 | ie:irl:372:Ireland
|
---|
411 | il:isr:376:Israel
|
---|
412 | in:ind:356:India
|
---|
413 | io:iot:086:British Indian Ocean Territory
|
---|
414 | iq:irq:368:Iraq
|
---|
415 | ir:irn:364:Iran, Islamic Republic of:Iran
|
---|
416 | is:isl:352:Iceland
|
---|
417 | it:ita:380:Italy
|
---|
418 | jm:jam:388:Jamaica
|
---|
419 | jo:jor:400:Jordan
|
---|
420 | jp:jpn:392:Japan
|
---|
421 | ke:ken:404:Kenya
|
---|
422 | kg:kgz:417:Kyrgyzstan
|
---|
423 | kh:khm:116:Cambodia
|
---|
424 | ki:kir:296:Kiribati
|
---|
425 | km:com:174:Comoros
|
---|
426 | kn:kna:659:Saint Kitts and Nevis
|
---|
427 | kp:prk:408:Korea, Democratic People's Republic of:Korea, North:North Korea
|
---|
428 | kr:kor:410:Korea, Republic of:Korea, South:South Korea
|
---|
429 | kw:kwt:414:Kuwait
|
---|
430 | ky:cym:136:Cayman Islands
|
---|
431 | kz:kaz:398:Kazakhstan:Kazakstan
|
---|
432 | la:lao:418:Lao People's Democratic Republic
|
---|
433 | lb:lbn:422:Lebanon
|
---|
434 | lc:lca:662:Saint Lucia
|
---|
435 | li:lie:438:Liechtenstein
|
---|
436 | lk:lka:144:Sri Lanka
|
---|
437 | lr:lbr:430:Liberia
|
---|
438 | ls:lso:426:Lesotho
|
---|
439 | lt:ltu:440:Lithuania
|
---|
440 | lu:lux:442:Luxembourg
|
---|
441 | lv:lva:428:Latvia
|
---|
442 | ly:lby:434:Libyan Arab Jamahiriya:Libya
|
---|
443 | ma:mar:504:Morocco
|
---|
444 | mc:mco:492:Monaco
|
---|
445 | md:mda:498:Moldova, Republic of:Moldova
|
---|
446 | mg:mdg:450:Madagascar
|
---|
447 | mh:mhl:584:Marshall Islands
|
---|
448 | mk:mkd:807:Macedonia, the Former Yugoslav Republic of:Macedonia, Former Yugoslav Republic of:Macedonia
|
---|
449 | ml:mli:466:Mali
|
---|
450 | mm:mmr:104:Myanmar:Burma
|
---|
451 | mn:mng:496:Mongolia
|
---|
452 | mo:mac:446:Macao:Macau
|
---|
453 | mp:mnp:580:Northern Mariana Islands
|
---|
454 | mq:mtq:474:Martinique
|
---|
455 | mr:mrt:478:Mauritania
|
---|
456 | ms:msr:500:Montserrat
|
---|
457 | mt:mlt:470:Malta
|
---|
458 | mu:mus:480:Mauritius
|
---|
459 | mv:mdv:462:Maldives
|
---|
460 | mw:mwi:454:Malawi
|
---|
461 | mx:mex:484:Mexico
|
---|
462 | my:mys:458:Malaysia
|
---|
463 | mz:moz:508:Mozambique
|
---|
464 | na:nam:516:Namibia
|
---|
465 | nc:ncl:540:New Caledonia
|
---|
466 | ne:ner:562:Niger
|
---|
467 | nf:nfk:574:Norfolk Island
|
---|
468 | ng:nga:566:Nigeria
|
---|
469 | ni:nic:558:Nicaragua
|
---|
470 | nl:nld:528:Netherlands
|
---|
471 | no:nor:578:Norway
|
---|
472 | np:npl:524:Nepal
|
---|
473 | nr:nru:520:Nauru
|
---|
474 | nu:niu:570:Niue
|
---|
475 | nz:nzl:554:New Zealand
|
---|
476 | om:omn:512:Oman
|
---|
477 | pa:pan:591:Panama
|
---|
478 | pe:per:604:Peru
|
---|
479 | pf:pyf:258:French Polynesia
|
---|
480 | pg:png:598:Papua New Guinea
|
---|
481 | ph:phl:608:Philippines
|
---|
482 | pk:pak:586:Pakistan
|
---|
483 | pl:pol:616:Poland
|
---|
484 | pm:spm:666:Saint Pierre and Miquelon
|
---|
485 | pn:pcn:612:Pitcairn:Pitcairn Island
|
---|
486 | pr:pri:630:Puerto Rico
|
---|
487 | ps:pse:275:Palestinian Territory, Occupied
|
---|
488 | pt:prt:620:Portugal
|
---|
489 | pw:plw:585:Palau
|
---|
490 | py:pry:600:Paraguay
|
---|
491 | qa:qat:634:Qatar
|
---|
492 | re:reu:638:Reunion
|
---|
493 | ro:rou:642:Romania
|
---|
494 | ru:rus:643:Russian Federation:Russia
|
---|
495 | rw:rwa:646:Rwanda
|
---|
496 | sa:sau:682:Saudi Arabia
|
---|
497 | sb:slb:090:Solomon Islands
|
---|
498 | sc:syc:690:Seychelles
|
---|
499 | sd:sdn:736:Sudan
|
---|
500 | se:swe:752:Sweden
|
---|
501 | sg:sgp:702:Singapore
|
---|
502 | sh:shn:654:Saint Helena
|
---|
503 | si:svn:705:Slovenia
|
---|
504 | sj:sjm:744:Svalbard and Jan Mayen:Jan Mayen:Svalbard
|
---|
505 | sk:svk:703:Slovakia
|
---|
506 | sl:sle:694:Sierra Leone
|
---|
507 | sm:smr:674:San Marino
|
---|
508 | sn:sen:686:Senegal
|
---|
509 | so:som:706:Somalia
|
---|
510 | sr:sur:740:Suriname
|
---|
511 | st:stp:678:Sao Tome and Principe
|
---|
512 | sv:slv:222:El Salvador
|
---|
513 | sy:syr:760:Syrian Arab Republic:Syria
|
---|
514 | sz:swz:748:Swaziland
|
---|
515 | tc:tca:796:Turks and Caicos Islands
|
---|
516 | td:tcd:148:Chad
|
---|
517 | tf:atf:260:French Southern Territories:French Southern and Antarctic Lands
|
---|
518 | tg:tgo:768:Togo
|
---|
519 | th:tha:764:Thailand
|
---|
520 | tj:tjk:762:Tajikistan
|
---|
521 | tk:tkl:772:Tokelau
|
---|
522 | tm:tkm:795:Turkmenistan
|
---|
523 | tn:tun:788:Tunisia
|
---|
524 | to:ton:776:Tonga
|
---|
525 | tl:tls:626:Timor-Leste:East Timor
|
---|
526 | tr:tur:792:Turkey
|
---|
527 | tt:tto:780:Trinidad and Tobago
|
---|
528 | tv:tuv:798:Tuvalu
|
---|
529 | tw:twn:158:Taiwan, Province of China:Taiwan
|
---|
530 | tz:tza:834:Tanzania, United Republic of:Tanzania
|
---|
531 | ua:ukr:804:Ukraine
|
---|
532 | ug:uga:800:Uganda
|
---|
533 | um:umi:581:United States Minor Outlying Islands
|
---|
534 | us:usa:840:United States:USA:United States of America
|
---|
535 | uy:ury:858:Uruguay
|
---|
536 | uz:uzb:860:Uzbekistan
|
---|
537 | va:vat:336:Holy See (Vatican City State):Holy See (Vatican City)
|
---|
538 | vc:vct:670:Saint Vincent and the Grenadines
|
---|
539 | ve:ven:862:Venezuela
|
---|
540 | vg:vgb:092:Virgin Islands, British:British Virgin Islands
|
---|
541 | vi:vir:850:Virgin Islands, U.S.
|
---|
542 | vn:vnm:704:Vietnam
|
---|
543 | vu:vut:548:Vanuatu
|
---|
544 | wf:wlf:876:Wallis and Futuna
|
---|
545 | ws:wsm:882:Samoa
|
---|
546 | ye:yem:887:Yemen
|
---|
547 | yt:myt:175:Mayotte
|
---|
548 | za:zaf:710:South Africa
|
---|
549 | zm:zmb:894:Zambia
|
---|
550 | zw:zwe:716:Zimbabwe
|
---|