####################
# COPYRIGHT NOTICE (c)2003-2004 Yuuichirou Oka
#  iso2country.pl 
#    - Perl library for getting country name
#      from ISO two-letter country-code(ISO 3166).
# Yuuichirou Oka (oka@a-f.jp)
# Created on January 8th 2003
; $Last_Modified = "June 13th 2004";
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2 of the License, or (at your
# option) any later version.
# For more detail, see http://www.gnu.org/licenses/licenses.html
#
# Latest version of this script is distributed at:
#   http://a-f.jp/oka/domains/iso2country/
#
####################

%iso2country =(
  'af' => "Afghanistan",
  'al' => "Albania",
  'dz' => "Algeria",
  'as' => "American Samoa",
  'ad' => "Andorra",
  'ao' => "Angola",
  'ai' => "Anguilla",
  'aq' => "Antarctica",
  'ag' => "Antigua and Barbuda",
  'ar' => "Argentina",
  'am' => "Armenia",
  'aw' => "Aruba",
  'au' => "Australia",
  'at' => "Austria",
  'ax' => "ALand Islands",
  'az' => "Azerbaijan",
  'bs' => "Bahamas",
  'bh' => "Bahrain",
  'bd' => "Bangladesh",
  'bb' => "Barbados",
  'by' => "Belarus",
  'be' => "Belgium",
  'bz' => "Belize",
  'bj' => "Benin",
  'bm' => "Bermuda",
  'bt' => "Bhutan",
  'bo' => "Bolivia",
  'ba' => "Bosnia and Herzegovina",
  'bw' => "Botswana",
  'bv' => "Bouvet Island",
  'br' => "Brazil",
  'io' => "British Indian Ocean Territory",
  'bn' => "Brunei Darussalam",
  'bg' => "Bulgaria",
  'bf' => "Burkina Faso",
  'bi' => "Burundi",
  'kh' => "Cambodia",
  'cm' => "Cameroon",
  'ca' => "Canada",
  'cv' => "Cape Verde",
  'ky' => "Cayman Islands",
  'cf' => "Central African Republic",
  'td' => "Chad",
  'cl' => "Chile",
  'cn' => "China",
  'cx' => "Christmas Island",
  'cc' => "Cocos (Keeling) Islands",
  'co' => "Colombia",
  'km' => "Union of the Comoros",
  'cg' => "Congo",
  'cd' => "Congo, The Democratic Republic of The",
  'ck' => "Cook Islands",
  'cr' => "Costa Rica",
  'ci' => "Cote D'ivoire",
  'hr' => "Croatia",
  'cu' => "Cuba",
  'cy' => "Cyprus",
  'cz' => "Czech Republic",
  'dk' => "Denmark",
  'dj' => "Djibouti",
  'dm' => "Dominica",
  'do' => "Dominican Republic",
  'ec' => "Ecuador",
  'eg' => "Egypt",
  'sv' => "El Salvador",
  'gq' => "Equatorial Guinea",
  'er' => "Eritrea",
  'ee' => "Estonia",
  'et' => "Ethiopia",
  'fk' => "Falkland Islands (Malvinas)",
  'fo' => "Faroe Islands",
  'fj' => "Fiji",
  'fi' => "Finland",
  'fr' => "France",
  'gf' => "French Guiana",
  'pf' => "French Polynesia",
  'tf' => "French Southern Territories",
  'ga' => "Gabon",
  'gm' => "Gambia",
  'ge' => "Georgia",
  'de' => "Germany",
  'gh' => "Ghana",
  'gi' => "Gibraltar",
  'gr' => "Greece",
  'gl' => "Greenland",
  'gd' => "Grenada",
  'gp' => "Guadeloupe",
  'gu' => "Guam",
  'gt' => "Guatemala",
  'gn' => "Guinea",
  'gw' => "Guinea-Bissau",
  'gy' => "Guyana",
  'ht' => "Haiti",
  'hm' => "Heard Island and Mcdonald Islands",
  'va' => "Holy See (Vatican City State)",
  'hn' => "Honduras",
  'hk' => "Hong Kong",
  'hu' => "Hungary",
  'is' => "Iceland",
  'in' => "India",
  'id' => "Indonesia",
  'ir' => "Iran, Islamic Republic of",
  'iq' => "Iraq",
  'ie' => "Ireland",
  'il' => "Israel",
  'it' => "Italy",
  'jm' => "Jamaica",
  'jp' => "Japan",
  'jo' => "Jordan",
  'kz' => "Kazakhstan",
  'ke' => "Kenya",
  'ki' => "Kiribati",
  'kp' => "Korea, Democratic People's Republic of",
  'kr' => "Korea, Republic of",
  'kw' => "Kuwait",
  'kg' => "Kyrgyzstan",
  'la' => "Lao People's Democratic Republic",
  'lv' => "Latvia",
  'lb' => "Lebanon",
  'ls' => "Lesotho",
  'lr' => "Liberia",
  'ly' => "Libyan Arab Jamahiriya",
  'li' => "Liechtenstein",
  'lt' => "Lithuania",
  'lu' => "Luxembourg",
  'mo' => "Macao",
  'mk' => "Macedonia, The Former Yugoslav Republic of",
  'mg' => "Madagascar",
  'mw' => "Malawi",
  'my' => "Malaysia",
  'mv' => "Maldives",
  'ml' => "Mali",
  'mt' => "Malta",
  'mh' => "Marshall Islands",
  'mq' => "Martinique",
  'mr' => "Mauritania",
  'mu' => "Mauritius",
  'yt' => "Mayotte",
  'mx' => "Mexico",
  'fm' => "Micronesia, Federated States of",
  'md' => "Moldova, Republic of",
  'mc' => "Monaco",
  'mn' => "Mongolia",
  'ms' => "Montserrat",
  'ma' => "Morocco",
  'mz' => "Mozambique",
  'mm' => "Myanmar",
  'na' => "Namibia",
  'nr' => "Nauru",
  'np' => "Nepal",
  'nl' => "Netherlands",
  'an' => "Netherlands Antilles",
  'nc' => "New Caledonia",
  'nz' => "New Zealand",
  'ni' => "Nicaragua",
  'ne' => "Niger",
  'ng' => "Nigeria",
  'nu' => "Niue",
  'nf' => "Norfolk Island",
  'mp' => "Northern Mariana Islands",
  'no' => "Norway",
  'om' => "Oman",
  'pk' => "Pakistan",
  'pw' => "Palau",
  'ps' => "Palestinian Territory, Occupied",
  'pa' => "Panama",
  'pg' => "Papua New Guinea",
  'py' => "Paraguay",
  'pe' => "Peru",
  'ph' => "Philippines",
  'pn' => "Pitcairn",
  'pl' => "Poland",
  'pt' => "Portugal",
  'pr' => "Puerto Rico",
  'qa' => "Qatar",
  're' => "Reunion",
  'ro' => "Romania",
  'ru' => "Russian Federation",
  'rw' => "Rwanda",
  'sh' => "Saint Helena",
  'kn' => "Saint Kitts and Nevis",
  'lc' => "Saint Lucia",
  'pm' => "Saint Pierre and Miquelon",
  'vc' => "Saint Vincent and The Grenadines",
  'ws' => "Samoa",
  'sm' => "San Marino",
  'st' => "Sao Tome and Principe",
  'sa' => "Saudi Arabia",
  'sn' => "Senegal",
  'cs' => "Serbia and Montenegro",
  'sc' => "Seychelles",
  'sl' => "Sierra Leone",
  'sg' => "Singapore",
  'sk' => "Slovakia",
  'si' => "Slovenia",
  'sb' => "Solomon Islands",
  'so' => "Somalia",
  'za' => "South Africa",
  'gs' => "South Georgia and The South Sandwich Islands",
  'es' => "Spain",
  'lk' => "Sri Lanka",
  'sd' => "Sudan",
  'sr' => "Suriname",
  'sj' => "Svalbard and Jan Mayen",
  'sz' => "Swaziland",
  'se' => "Sweden",
  'ch' => "Switzerland",
  'sy' => "Syrian Arab Republic",
  'tw' => "Taiwan, Province of China",
  'tj' => "Tajikistan",
  'tz' => "Tanzania, United Republic of",
  'th' => "Thailand",
  'tl' => "Timor-Leste (former East Timor)",
  'tp' => "Timor-Leste (former East Timor)", # For Internet Domain System, now 'tl'
  'tg' => "Togo",
  'tk' => "Tokelau",
  'to' => "Tonga",
  'tt' => "Trinidad and Tobago",
  'tn' => "Tunisia",
  'tr' => "Turkey",
  'tm' => "Turkmenistan",
  'tc' => "Turks and Caicos Islands",
  'tv' => "Tuvalu",
  'ug' => "Uganda",
  'ua' => "Ukraine",
  'ae' => "United Arab Emirates",
  'gb' => "United Kingdom", # ISO 3166
  'uk' => "United Kingdom", # Internet Domain System
  'us' => "United States",
  'um' => "United States Minor Outlying Islands",
  'uy' => "Uruguay",
  'uz' => "Uzbekistan",
  'vu' => "Vanuatu",
  've' => "Venezuela",
  'vn' => "Viet Nam",
  'vg' => "Virgin Islands, British",
  'vi' => "Virgin Islands, U.S.",
  'wf' => "Wallis and Futuna",
  'eh' => "Western Sahara",
  'ye' => "Yemen",
  'yu' => "Serbia and Montenegro (Former Yugoslavia)", # Deletion (ISO 3166-1 NEWSLETTER No. V-8 (2003-07-23))
  'zm' => "Zambia",
  'zw' => "Zimbabwe",
);

1;

__END__

=head1 NAME

iso2country - Hash to convert ISO 3166-1 2-char country code to country name

=head1 SYNOPSIS

    require 'iso2country.pl';

    $country_name = $iso2country{"jp"};
    # $country_name is "Japan"

    $country_name = $iso2country{"uk"};
    # $country_name is "United Kingdom"
    # Exceptional Case. Country Code for UK is "gb" in ISO 3166-1.

=head1 Difference between ISO 3166 and this script

=over

For detail about ISO 3166 Newsletter, see
http://www.iso.org/iso/en/prods-services/iso3166ma/03updates-on-iso-3166/index.html

=item United Kingdom

In ISO 3166, United Kingdom is assigned "gb", but in
Internet Domain System UK uses "uk". This script accept both.

=item Timor-Leste and East Timor

According to ISO 3166-1 Newsletter V-5, country code for East Timor is changed "tp"
to "tl", because of country name was changed.
But in Internet Domain System, "tp" is still used. This script accept both.

According to ISO 3166-1 Newsletter V-6, "East Timor" changed thier country name
to "Timor-Leste". This script returns "Timor-Leste (former East Timor)" for "tp" and
"tl".

=item Serbia and Montenegro (Former Yugoslavia)

According to ISO 3166-1 Newsletter V-8, "yu" for Yugoslavia is deleted and 
"cs" for Serbia and Montenegro is assigned. In Internet Domain System, "yu" is still
used. So this script accept both and returns "Serbia and Montenegro (Former
 Yugoslavia)" for "cs" and "yu".

=back

=head1 AUTHOR

Yuuichirou Oka <oka@a-f.jp>

Latest version is distributed at http://a-f.jp/oka/domains/iso2country/

=head1 COPYRIGHT

Copyright (c) 2003-2004 Yuuichirou Oka. All rights reserved.

This script is freeware.
You can use, modify and/or redistribute this script under the terms of
GNU General Public License(GPL).
For detail about GNU GPL, see http://www.gnu.org/licenses/licenses.html .

=cut