ActivePerl Documentation
|
NAMELocale::Country - ISO two letter codes for country identification (ISO 3166)
SUPPORTED PLATFORMS
SYNOPSIS
use Locale::Country;
$country = code2country('jp'); # $country gets 'Japan'
$code = country2code('Norway'); # $code gets 'no'
@codes = all_country_codes();
@names = all_country_names();
Locale::Country::_alias_code('uk' => 'gb'); # allow "uk": United Kingdom
DESCRIPTIONThe
CONVERSION ROUTINESThere are two conversion routines:
QUERY ROUTINESThere are two function which can be used to obtain a list of all codes, or all country names:
CODE ALIASINGThis module supports a semi-private routine for specifying two letter code aliases. This feature was added as a mechanism for handling a ``uk'' code. The ISO standard says that the two-letter code for ``United Kingdom'' is ``gb'', whereas domain names are all .uk. By default the module does not understand ``uk'', since it is implementing an ISO standard. If you would like 'uk' to work as the two-letter code for United Kingdom, use the following:
use Locale::Country;
Locale::Country::_alias_code('uk' => 'gb');
With this code, both ``uk'' and ``gb'' are valid codes for United Kingdom, with the reverse lookup returning ``uk'' rather than the usual ``gb''.
EXAMPLESThe following example illustrates use of the
$| = 1; # turn off buffering
print "Enter country code: ";
chop($code = <STDIN>);
$country = code2country($code);
if (defined $country)
{
print "$code = $country\n";
}
else
{
print "'$code' is not a valid country code!\n";
}
DOMAIN NAMESMost top-level domain names are based on these codes, but there are certain codes which aren't. If you are using this module to identify country from hostname, your best bet is to preprocess the country code. For example, edu, com, gov and friends would map to us; uk would map to gb. Any others?
KNOWN BUGS AND LIMITATIONS
SEE ALSO
AUTHORNeil Bowers <neilb@cre.canon.co.uk>
COPYRIGHTCopyright (c) 1997,1998 Canon Research Centre Europe (CRE). This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|