#!/usr/bin/perl use warnings; use strict; my %country_names = ( "AF" => "Afghanistan", "AX" => "Aland Islands", "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", "AZ" => "Azerbaijan", "BS" => "Bahamas", "BH" => "Bahrain", "BD" => "Bangladesh", "BB" => "Barbados", "ZZ" => "AAAAAAA" ); my @sorted_keys = sort { $country_names{$a} cmp $country_names{$b} } k +eys %country_names; print join("\n",@sorted_keys);
In reply to Re: hash sorting/alphabetization issue : country postal codes
by grep
in thread hash sorting/alphabetization issue : country postal codes
by hmbscully
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |