[perl5.git] / lib / Locale / Country.pm

#
# Locale::Country - ISO codes for country identification (ISO 3166)
#
# $Id: Country.pm,v 2.6 2002/07/10 16:33:27 neilb Exp $
#

package Locale::Country;
use strict;
require 5.002;

require Exporter;
use Carp;
use Locale::Constants;


#-----------------------------------------------------------------------
#	Public Global Variables
#-----------------------------------------------------------------------
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$VERSION   = sprintf("%d.%02d", q$Revision: 2.6 $ =~ /(\d+)\.(\d+)/);
@ISA       = qw(Exporter);
@EXPORT    = qw(code2country country2code
                all_country_codes all_country_names
		country_code2code
		LOCALE_CODE_ALPHA_2 LOCALE_CODE_ALPHA_3 LOCALE_CODE_NUMERIC);

#-----------------------------------------------------------------------
#	Private Global Variables
#-----------------------------------------------------------------------
my $CODES     = [];
my $COUNTRIES = [];


#=======================================================================
#
# code2country ( CODE [, CODESET ] )
#
#=======================================================================
sub code2country
{
    my $code = shift;
    my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;


    return undef unless defined $code;

    #-------------------------------------------------------------------
    # Make sure the code is in the right form before we use it
    # to look up the corresponding country.
    # We have to sprintf because the codes are given as 3-digits,
    # with leading 0's. Eg 052 for Barbados.
    #-------------------------------------------------------------------
    if ($codeset == LOCALE_CODE_NUMERIC)
    {
	return undef if ($code =~ /\D/);
	$code = sprintf("%.3d", $code);
    }
    else
    {
	$code = lc($code);
    }

    if (exists $CODES->[$codeset]->{$code})
    {
        return $CODES->[$codeset]->{$code};
    }
    else
    {
        #---------------------------------------------------------------
        # no such country code!
        #---------------------------------------------------------------
        return undef;
    }
}


#=======================================================================
#
# country2code ( NAME [, CODESET ] )
#
#=======================================================================
sub country2code
{
    my $country = shift;
    my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;


    return undef unless defined $country;
    $country = lc($country);
    if (exists $COUNTRIES->[$codeset]->{$country})
    {
        return $COUNTRIES->[$codeset]->{$country};
    }
    else
    {
        #---------------------------------------------------------------
        # no such country!
        #---------------------------------------------------------------
        return undef;
    }
}


#=======================================================================
#
# country_code2code ( NAME [, CODESET ] )
#
#=======================================================================
sub country_code2code
{
    (@_ == 3) or croak "country_code2code() takes 3 arguments!";

    my $code = shift;
    my $inset = shift;
    my $outset = shift;
    my $outcode;
    my $country;


    return undef if $inset == $outset;
    $country = code2country($code, $inset);
    return undef if not defined $country;
    $outcode = country2code($country, $outset);
    return $outcode;
}


#=======================================================================
#
# all_country_codes ( [ CODESET ] )
#
#=======================================================================
sub all_country_codes
{
    my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;

    return keys %{ $CODES->[$codeset] };
}


#=======================================================================
#
# all_country_names ( [ CODESET ] )
#
#=======================================================================
sub all_country_names
{
    my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;

    return values %{ $CODES->[$codeset] };
}


#=======================================================================
#
# alias_code ( ALIAS => CODE [ , CODESET ] )
#
# Add an alias for an existing code. If the CODESET isn't specified,
# then we use the default (currently the alpha-2 codeset).
#
#   Locale::Country::alias_code('uk' => 'gb');
#
#=======================================================================
sub alias_code
{
    my $alias = shift;
    my $real  = shift;
    my $codeset = @_ > 0 ? shift : LOCALE_CODE_DEFAULT;

    my $country;


    if (not exists $CODES->[$codeset]->{$real})
    {
        carp "attempt to alias \"$alias\" to unknown country code \"$real\"\n";
        return undef;
    }
    $country = $CODES->[$codeset]->{$real};
    $CODES->[$codeset]->{$alias} = $country;
    $COUNTRIES->[$codeset]->{"\L$country"} = $alias;

    return $alias;
}

# old name of function for backwards compatibility
*_alias_code = *alias_code;


#=======================================================================
#
# rename_country
#
# change the official name for a country, eg:
#	gb => 'Great Britain'
# rather than the standard 'United Kingdom'. The original is retained
# as an alias, but the new name will be returned if you lookup the
# name from code.
#
#=======================================================================
sub rename_country
{
    my $code     = shift;
    my $new_name = shift;
    my $codeset = @_ > 0 ? shift : _code2codeset($code);
    my $country;
    my $c;


    if (not defined $codeset)
    {
        carp "rename_country(): unknown country code \"$code\"\n";
        return 0;
    }

    $country = $CODES->[$codeset]->{$code};

    foreach my $cset (LOCALE_CODE_ALPHA_2,
			LOCALE_CODE_ALPHA_3,
			LOCALE_CODE_NUMERIC)
    {
	if ($cset == $codeset)
	{
	    $c = $code;
	}
	else
	{
	    $c = country_code2code($code, $codeset, $cset);
	}

	$CODES->[$cset]->{$c} = $new_name;
	$COUNTRIES->[$cset]->{"\L$new_name"} = $c;
    }

    return 1;
}


#=======================================================================
#
# _code2codeset
#
# given a country code in an unknown codeset, return the codeset
# it is from, or undef.
#
#=======================================================================
sub _code2codeset
{
    my $code = shift;


    foreach my $codeset (LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3,
			LOCALE_CODE_NUMERIC)
    {
	return $codeset if (exists $CODES->[$codeset]->{$code})
    }

    return undef;
}


#=======================================================================
#
# initialisation code - stuff the DATA into the ALPHA2 hash
#
#=======================================================================
{
    my ($alpha2, $alpha3, $numeric);
    my ($country, @countries);

    local $_;

    while (<DATA>)
    {
        next unless /\S/;
        chop;
        ($alpha2, $alpha3, $numeric, @countries) = split(/:/, $_);

        $CODES->[LOCALE_CODE_ALPHA_2]->{$alpha2} = $countries[0];
	foreach $country (@countries)
	{
	    $COUNTRIES->[LOCALE_CODE_ALPHA_2]->{"\L$country"} = $alpha2;
	}

	if ($alpha3)
	{
            $CODES->[LOCALE_CODE_ALPHA_3]->{$alpha3} = $countries[0];
	    foreach $country (@countries)
	    {
		$COUNTRIES->[LOCALE_CODE_ALPHA_3]->{"\L$country"} = $alpha3;
	    }
	}

	if ($numeric)
	{
            $CODES->[LOCALE_CODE_NUMERIC]->{$numeric} = $countries[0];
	    foreach $country (@countries)
	    {
		$COUNTRIES->[LOCALE_CODE_NUMERIC]->{"\L$country"} = $numeric;
	    }
	}

    }

    close(DATA);
}

1;

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