diff options
author | ivan <ivan> | 2010-11-01 18:24:45 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-11-01 18:24:45 +0000 |
commit | 43107005cf3fc4356e72a2820e623c6983309e6b (patch) | |
tree | b40d88c8e39565f1adbb06f28c2f7a576fee0f6b /examples |
importing upstream 1.41Locale_SubCountry_1_41
Diffstat (limited to 'examples')
-rwxr-xr-x | examples/demo.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/examples/demo.pl b/examples/demo.pl new file mode 100755 index 0000000..1ea8f11 --- /dev/null +++ b/examples/demo.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +# demo script for Locale::SubCountry + +use strict; +use Locale::SubCountry; + +# For every country +# list the country name +# if any subcountries, list each code and full name on a new line + +my $world = new Locale::SubCountry::World; +my @all_countries = $world->all_full_names; + +my %all_letters; +foreach my $country ( sort @all_countries ) +{ + print "\n\n$country\n"; + my $current_country = new Locale::SubCountry($country); + + # Are there any sub countires? + if ( $current_country->has_sub_countries ) + { + # Get a hash, key is sub country code, value is full anme, such as + # SA => 'South Australia', VIC => 'Victoria' ... + my %sub_countries_keyed_by_code = $current_country->code_full_name_hash; + foreach my $code ( sort keys %sub_countries_keyed_by_code ) + { + printf("%-3s : %s\n",$code,$sub_countries_keyed_by_code{$code}); + } + } +}
\ No newline at end of file |