1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
|
#!/usr/bin/perl -w
# Copyright (c) 2010-2025 Sullivan Beck. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
# This is used to match country names from one source with those from
# an existing source. It can also be used to create additional aliases
# that do not occur in any of the standards.
#
$Data{'country'}{'link'} =
[
[ "Bolivia (Plurinational State of)",
"Bolivia, Plurinational State of",
"Plurinational State of Bolivia",
"Bolivia" ],
[ "Brunei Darussalam",
"Brunei" ],
[ "Cocos (Keeling) Islands (The)",
"Cocos Islands",
"The Cocos Islands",
"Keeling Islands",
"The Keeling Islands" ],
[ "Congo",
"The Republic of the Congo",
"Republic of the Congo",
"Congo, The Republic of the",
"Congo, Republic of the",
"Congo-Brazzaville",
"Congo (Brazzaville)" ],
[ "Congo (The Democratic Republic of the)",
"Congo, The Democratic Republic of the",
"Congo, Democratic Republic of the",
"The Democratic Republic of the Congo",
"Democratic Republic of the Congo",
"Congo-Kinshasa",
"Congo (Kinshasa)" ],
[ "Czech Republic",
"The Czech Republic",
"Czech Republic, The",
"Czech Republic (The)",
"Czechia" ],
[ "Falkland Islands (The) [Malvinas]",
"Falkland Islands (Malvinas)",
"Falkland Islands (Islas Malvinas)" ],
[ "Faroe Islands (The)",
"Faeroe Islands",
"The Faeroe Islands" ],
[ "French Southern Territories",
"French Southern and Antarctic Lands" ],
[ "Great Britain",
"United Kingdom (The)",
"The United Kingdom",
"United Kingdom",
"United Kingdom, The",
"United Kingdom of Great Britain and Northern Ireland",
"UK" ],
[ "Holy See (The) [Vatican City State]",
"Holy See (Vatican City State)",
"Holy See (Vatican City)",
"The Holy See",
"Holy See",
"Holy See (The)",
"Holy See, The",
"Vatican City" ],
[ "Hong Kong",
"China, Hong Kong Special Administrative Region",
"Hong Kong S.A.R.",
"Hong Kong Special Administrative Region of China" ],
[ "Iran (Islamic Republic of)",
"Iran (The Islamic Republic of)",
"Iran, Islamic Republic of",
"Iran, The Islamic Republic of",
"Islamic Republic of Iran",
"The Islamic Republic of Iran",
"Iran" ],
[ "Kazakhstan",
"Kazakstan" ],
[ "Korea (The Democratic People's Republic of)",
"North Korea" ],
[ "Korea (The Republic of)",
"South Korea" ],
[ "Macao",
"China, Macao Special Administrative Region",
"Macao Special Administrative Region of China",
"Macau S.A.R",
"Macau S.A.R.",
"Macau" ],
[ "Macedonia, The former Yugoslav Republic of",
"Macedonia" ],
[ "Micronesia (Federated States of)",
"Federated States of Micronesia",
"Micronesia (The Federated States of)",
"Micronesia, Federated States of",
"Micronesia, The Federated States of",
"The Federated States of Micronesia" ],
[ "Myanmar",
"The Republic of the Union of Myanmar",
"Republic of the Union of Myanmar",
"Burma" ],
[ "Pitcairn",
"Pitcairn Island",
"Pitcairn Islands" ],
[ "Saint Barthelemy",
"Saint-Barthelemy" ],
[ "Saint Helena, Ascension and Tristan da Cunha",
"Saint Helena" ],
[ "Saint Martin (French part)",
"Saint Martin",
"Saint-Martin (French part)",
"Saint-Martin" ],
[ "Solomon Islands",
"Solomon Islands (The)",
"Solomon Islands, The",
"The Solomon Islands" ],
[ "South Georgia and the South Sandwich Islands",
"South Georgia and the Islands" ],
[ "Svalbard and Jan Mayen",
"Svalbard and Jan Mayen Islands" ],
[ "Syrian Arab Republic",
"Syrian Arab Republic (The)",
"Syrian Arab Republic, The",
"The Syrian Arab Republic",
"Syria" ],
[ "Taiwan (Province of China)",
"Taiwan",
"Taiwan, Province of China" ],
[ "Timor-Leste",
"East Timor",
"The Democratic Republic of Timor-Leste",
"Democratic Republic of Timor-Leste",
"Timor-Leste, The Democratic Republic of",
"Timor-Leste, Democratic Republic of",
"Timor-Leste (The Democratic Republic of)",
"Timor-Leste (Democratic Republic of)" ],
[ "The United States of America",
"The United States",
"United States",
"United States, The",
"United States (The)",
"US",
"USA",
"United States of America" ],
[ "Venezuela (Bolivarian Republic of)",
"Venezuela, Bolivarian Republic of",
"Venezuela, Bolivarian Republic",
"Venezuela" ],
[ "Viet Nam",
"Vietnam" ],
[ "Virgin Islands (British)",
"British Virgin Islands",
"Virgin Islands, British",
"Virgin Islands (UK)" ],
[ "Virgin Islands (U.S.)",
"United States Virgin Islands",
"Virgin Islands (US)",
"Virgin Islands, U.S.",
"Virgin Islands" ],
[ "Wallis and Futuna",
"Wallis and Futuna Islands",
"The Territory of the Wallis and Futuna Islands",
"Territory of the Wallis and Futuna Islands" ],
[ "Yemen",
"The Yemeni Republic",
"Yemeni Republic",
"Yemeni Republic, The",
"Yemeni Republic (The)" ],
[ "Zambia",
"The Republic of Zambia",
"Republic of Zambia",
"Republic of Zambia, The",
"Republic of Zambia (The)" ],
[ "Zimbabwe",
"The Republic of Zimbabwe",
"Republic of Zimbabwe",
"Republic of Zimbabwe, The",
"Republic of Zimbabwe (The)" ],
];
################################################################################
# ISO 3166-1 countries
$Data{'country'}{'iso'}{'orig'}{'name'} = {
"Åland Islands" => "Aland Islands",
"Côte d'Ivoire" => "Cote d'Ivoire",
"Curaçao" => "Curacao",
"Réunion" => "Reunion",
"Saint Barthélemy" => "Saint Barthelemy",
"Western Sahara*" => "Western Sahara",
"Türkiye" => "Turkiye",
};
$Data{'country'}{'iso'}{'ignore'} = {
'name' => {},
'alpha-2' => {},
'alpha-3' => {},
'numeric' => {},
};
# Unusued
$Data{'country'}{'iso'}{'new'} = {};
################################################################################
# IANA (source of top level domains)
$Data{'country'}{'iana'}{'orig'}{'name'} = {
"Åland Islands" => "Aland Islands",
"Cocos (keeling) Islands" => "Cocos (Keeling) Islands",
"Congo, The Democratic Republic of The" => "Congo, The Democratic Republic of the",
"CÔte D'ivoire" => "Cote D'Ivoire",
"CuraÇao" => "Curacao",
"Falkland Islands (malvinas)" => "Falkland Islands (Malvinas)",
"Holy See (vatican City State)" => "Holy See (Vatican City State)",
"RÉunion" => "Reunion",
"Saint BarthÉlemy" => "Saint Barthelemy",
"Ussr" => "USSR",
"Virgin Islands, U.s." => "Virgin Islands, U.S.",
};
$Data{'country'}{'iana'}{'ignore'} = {
'name' => {},
'dom' => {},
};
$Data{'country'}{'iana'}{'new'} = {
'Ascension Island' => 1,
'Netherlands Antilles' => 1,
'Western Sahara' => 1,
'European Union' => 1,
'USSR' => 1,
'Wallis and Futuna' => 1,
'Yemen' => 1,
'Zambia' => 1,
'Zimbabwe' => 1,
};
################################################################################
# UN countries
$Data{'country'}{'un'}{'orig'}{'name'} = {
"Åland Islands" => "Aland Islands",
"Côte d'Ivoire" => "Cote d'Ivoire",
"Curaçao" => "Curacao",
"Democratic People's Republic of Korea" =>
"Democratic People's Republic of Korea",
"Lao People's Democratic Republic" => "Lao People's Democratic Republic",
"Réunion" => "Reunion",
"Saint Barthélemy" => "Saint Barthelemy",
"Côte d’Ivoire" => "Cote d'Ivoire",
"Türkiye" => "Turkiye",
};
$Data{'country'}{'un'}{'new'} = {
"Channel Islands" => 1,
"Sark" => 1,
};
################################################################################
# GENC countries
$Data{'country'}{'genc'}{'orig'}{'name'} = {
"CÔTE D’IVOIRE" => "Cote d'Ivoire",
"CURAÇAO", => "Curacao",
"ASHMORE AND CARTIER ISLANDS" => "Ashmore and Cartier Islands",
"JUAN DE NOVA ISLAND" => "Juan de Nova Island",
"SAINT HELENA, ASCENSION, AND TRISTAN DA CUNHA" => "Saint Helena, Ascension, and Tristan Da Cunha",
"SOUTH GEORGIA AND SOUTH SANDWICH ISLANDS" => "South Georgia and South Sandwich Islands",
"BONAIRE, SINT EUSTATIUS, AND SABA" => "Bonaire, Sint Eustatius, and Saba",
"Åland Islands" => "Aland Islands",
};
$Data{'country'}{'genc'}{'ignore'} = {
'name' => {
'Unknown' => 1,
},
'genc-alpha-2' => {
},
'genc-alpha-3' => {
},
'genc-numeric' => {},
};
$Data{'country'}{'genc'}{'new'} = {
};
1;
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: 0
# End:
|
