Käyttäjä:Mikko Paananen/maat.pl

Wikipedia

Scripti maiden nimien automaattiseen käännökseen, tehty vertailemalla HDI-taulukkoa käännettynä ja YK:n sivulla. Tämän pitäisi soveltua CIA:n datan ja HDI käännösten automaattiseen tekoon.

#!/usr/bin/perl -w

while( <> ) { # read
    $str = $_;

    $str =~ s/United States/Yhdysvallat/;
    $str =~ s/United Kingdom/Yhdistynyt kuningaskunta/;
    $str =~ s/England/Englanti/;
    $str =~ s/Scotland/Skotlanti/;
    $str =~ s/New Zealand/Uusi-Seelanti/;
    $str =~ s/Korea, Rep. of/Korean tasavalta/;
    $str =~ s/Korea, South/Etelä-Korea/;
    $str =~ s/Korea, North/Pohjois-Korea/;
    $str =~ s/Czech Republic/Tšekki/;
    $str =~ s/Brunei Darussalam/Brunei/;
    $str =~ s/Saint Kitts and Nevis/Saint Kitts ja Nevis/;
    $str =~ s/United Arab Emirates/Arabiemiirikunnat/;
    $str =~ s/Trinidad and Tobago/Trinidad ja Tobago/;
    $str =~ s/Antigua and Barbuda/Antigua ja Barbuda/;
    $str =~ s/Russian Federation/Venäjän federaatio/;
    $str =~ s/Russia/Venäjä/;
    $str =~ s/Libyan Arab Jamahiriya/Libya/;
    $str =~ s/Macedonia, TFYR/Makedonia/;
    $str =~ s/Macedonia, The Former Yugoslav Republic of/Makedonia/;
    $str =~ s/Macedonia/Makedonia/;
    $str =~ s/Bosnia and Herzegovina/Bosnia ja Hertsegovina/;
    $str =~ s/Saint Lucia/Saint Lucia/;
    $str =~ s/Samoa (Western)/Länsi-Samoa/;
    $str =~ s/American Samoa/Amerikan Samoa/;
    $str =~ s/Saudi Arabia/Saudi-Arabia/;
    $str =~ s/Saint Vincent and the Grenadines/Saint Vincent ja Grenadiinit/;
    $str =~ s/Sri Lanka/Sri Lanka/;
    $str =~ s/Dominican Republic/Dominikaaninen tasavalta/;
    $str =~ s/Iran, Islamic Rep. of/Iran/;
    $str =~ s/Iraq/Irak/;
    $str =~ s/Occupied Palestinian Territories/Palestiina/;
    $str =~ s/West Bank/Länsiranta/;
    $str =~ s/Gaza Strip/Gaza/;
    $str =~ s/Cape Verde/Kap Verde/;
    $str =~ s/Syrian Arab Republic/Syyria/;
    $str =~ s/Syria/Syyria/;
    $str =~ s/Equatorial Guinea/Päiväntasaajan Guinea/;
    $str =~ s/Viet Nam/Vietnam/;
    $str =~ s/Moldova, Rep. of/Moldova/;
    $str =~ s/South Africa/Etelä-Afrikka/;
    $str =~ s/São Tomé and Principe/São Tomé ja Principe/;
    $str =~ s/Sao Tome and Principe/São Tomé ja Principe/;
    $str =~ s/Solomon Islands/Salomonsaaret/;
    $str =~ s/Papua New Guinea/Papua-Uusi-Guinea/;
    $str =~ s/Lao People\'s Dem. Rep./Laos/;
    $str =~ s/Tanzania, U. Rep. of/Tansania/;
    $str =~ s/Tanzania/Tansania/;
    $str =~ s/Côte d\'Ivoire/Norsunluurannikko/;
    $str =~ s/Cote d\'Ivoire/Norsunluurannikko/;
    $str =~ s/Congo, Dem. Rep. of the/Kongon demokraattinen tasavalta/;
    $str =~ s/Congo, Democratic Republic of the/Kongon demokraattinen tasavalta/;
    $str =~ s/Congo, Republic of the/Kongon tasavalta/;
    $str =~ s/Congo/Kongo/;
    $str =~ s/Central African Republic/Keski-Afrikan tasavalta/;
    $str =~ s/Burkina Faso/Burkina Faso/;
    $str =~ s/Sierra Leone/Sierra Leone/;
    $str =~ s/Cayman Islands/Caymansaaret/;
    $str =~ s/Greenland/Grönlanti/;
    $str =~ s/Faroe Islands/Färsaaret/;
    $str =~ s/Serbia and Montenegro/Serbia ja Montenegro/;
    $str =~ s/New Caledonia/Uusi-Kaledonia/;
    $str =~ s/Gambia, The/Gambia/;
    $str =~ s/Netherlands Antilles/Alankomaiden Antillit/;
    $str =~ s/Northern Mariana Islands/Pohjois-Mariaanit/;
    $str =~ s/Turks and Caicos Islands/Turks- ja Caicossaaret/;
    $str =~ s/Falkland Islands/Falklandsaaret/;
    $str =~ s/Man, Isle of/Mansaari/;
    $str =~ s/French Polynesia/Ranskan Polynesia/;
    $str =~ s/Marshall Islands/Marshallsaaret/;
    $str =~ s/Micronesia, Federated States of/Mikronesian liittovaltio/;
    $str =~ s/Macau/Macao/;
    $str =~ s/Wallis and Futuna/Wallis ja Futuna/;
    $str =~ s/Saint Pierre and Miquelon/Saint-Pierre ja Miquelon/;
    $str =~ s/Saint-Pierre and Miquelon/Saint-Pierre ja Miquelon/;
    $str =~ s/British Virgin Islands/Brittiläiset Neitsytsaaret/;
    $str =~ s/US Virgin Islands/Yhdysvaltain Neitsytsaaret/;
    $str =~ s/Norway/Norja/;
    $str =~ s/Sweden/Ruotsi/;
    $str =~ s/Australia/Australia/;
    $str =~ s/Canada/Kanada/;
    $str =~ s/Netherlands/Alankomaat/;
    $str =~ s/Belgium/Belgia/;
    $str =~ s/Iceland/Islanti/;
    $str =~ s/Japan/Japani/;
    $str =~ s/Ireland/Irlanti/;
    $str =~ s/Switzerland/Sveitsi/;
    $str =~ s/Finland/Suomi/;
    $str =~ s/Austria/Itävalta/;
    $str =~ s/Luxembourg/Luxemburg/;
    $str =~ s/France/Ranska/;
    $str =~ s/Denmark/Tanska/;
    $str =~ s/Germany/Saksa/;
    $str =~ s/Spain/Espanja/;
    $str =~ s/Italy/Italia/;
    $str =~ s/Israel/Israel/;
    $str =~ s/Greece/Kreikka/;
    $str =~ s/Portugal/Portugali/;
    $str =~ s/Cyprus/Kypros/;
    $str =~ s/Argentina/Argentiina/;
    $str =~ s/Seychelles/Seychellit/;
    $str =~ s/Estonia/Viro/;
    $str =~ s/Poland/Puola/;
    $str =~ s/Hungary/Unkari/;
    $str =~ s/Bahrain/Bahrain/;
    $str =~ s/Lithuania/Liettua/;
    $str =~ s/Slovakia/Slovakia/;
    $str =~ s/Croatia/Kroatia/;
    $str =~ s/Bahama, The/Bahama/;
    $str =~ s/Bahamas/Bahama/;
    $str =~ s/Cuba/Kuuba/;
    $str =~ s/Mexico/Meksiko/;
    $str =~ s/Malaysia/Malesia/;
    $str =~ s/Belarus/Valko-Venäjä/;
    $str =~ s/Suriname/Suriname/;
    $str =~ s/Ukraine/Ukraina/;
    $str =~ s/Brazil/Brasilia/;
    $str =~ s/Colombia/Kolumbia/;
    $str =~ s/Thailand/Thaimaa/;
    $str =~ s/Kazakhstan/Kazakstan/;
    $str =~ s/Jamaica/Jamaika/;
    $str =~ s/Lebanon/Libanon/;
    $str =~ s/Fiji/Fidži/;
    $str =~ s/Philippines/Filippiinit/;
    $str =~ s/Maldives/Malediivit/;
    $str =~ s/Turkey/Turkki/;
    $str =~ s/Jordan/Jordania/;
    $str =~ s/Azerbaijan/Azerbaidžan/;
    $str =~ s/Grenada/Grenada/;
    $str =~ s/China/Kiina/;
    $str =~ s/Kyrgyzstan/Kirgisia/;
    $str =~ s/Tajikistan/Tadžikistan/;
    $str =~ s/Egypt/Egypti/;
    $str =~ s/Guatemala/Guatemala/;
    $str =~ s/Morocco/Marokko/;
    $str =~ s/India/Intia/;
    $str =~ s/Botswana/Botswana/;
    $str =~ s/Vanuatu/Vanuatu/;
    $str =~ s/Cambodia/Kambodža/;
    $str =~ s/Comoros/Komorit/;
    $str =~ s/Swaziland/Swazimaa/;
    $str =~ s/Cameroon/Kamerun/;
    $str =~ s/Kenya/Kenia/;
    $str =~ s/Yemen/Jemen/;
    $str =~ s/Timor-Leste/Itä-Timor/;
    $str =~ s/East Timor/Itä-Timor/;
    $str =~ s/Rwanda/Ruanda/;
    $str =~ s/Zambia/Sambia/;
    $str =~ s/Chad/Tšad/;
    $str =~ s/Ethiopia/Etiopia/;
    $str =~ s/Mozambique/Mosambik/;
    $str =~ s/Afghanistan/Afganistan/;
    
    $str =~ s/World/Maailma/;
    print $str;
}