RSS

Sorting a hash by the hash value

Home » Perl » Sorting a hash by the hash value

Date: 2005-08-22

Sorting a hash by the hash value

Download | Printer Friendly

Add to Google	Add to Del.icio.us	Add to Digg	Add to Technorati
Add to Yahoo!	Add to Blinklist	Add to Furl	Add to reddit

#!/usr/bin/perl
use strict;
	our %countries =
	(
		'AF' => "Afghanistan", 'AL' => "Albania", 'DZ' => "Algeria", 'AS' => "American Samoa", 'AD' => "Andorra",
		'AO' => "Angola", 'AI' => "Anguilla", 'AQ' => "Antarctica", 'AG' => "Antigua & Barbuda", 'AR' => "Argentina",
		'AM' => "Armenia", 'AW' => "Aruba", 'AU' => "Australia", 'AT' => "Austria", 'AZ' => "Azerbaijan",
		'BS' => "Bahamas", 'BH' => "Bahrain", 'BD' => "Bangladesh", 'BB' => "Barbados", 'BE' => "Belgium",
		'BZ' => "Belize", 'BJ' => "Benin", 'BM' => "Bermuda", 'BT' => "Bhutan", 'BO' => "Bolivia",
		'BA' => "Bosnia-Herzegovina", 'BW' => "Botswana", 'BV' => "Bouvet Is.", 'BR' => "Brazil", 'IO' => "British Indian Ocean Terr.",
		'VG' => "British Virgin Islands", 'BN' => "Brunei Darussalam", 'BG' => "Bulgaria", 'BF' => "Burkina Faso", 'BI' => "Burundi",
		'BY' => "Byelorussian SSR", 'KH' => "Cambodia", 'CM' => "Cameroon", 'CA' => "Canada", 'CV' => "Cape Verde",
		'KY' => "Cayman Islands", 'CF' => "Central African Rep.", 'TD' => "Chad", 'CL' => "Chile", 'CN' => "China",
		'CX' => "Christmas Is.", 'CC' => "Cocos (Keeling) Islands", 'CO' => "Colombia", 'KM' => "Comoros", 'CG' => "Congo",
		'CK' => "Cook Islands", 'CR' => "Costa Rica", 'CI' => "Cote d'Ivoire", 'HR' => "Croatia", 'CU' => "Cuba",
		'CY' => "Cyprus", 'CZ' => "Czech Republic", 'CS' => "Czechoslovakia", 'KP' => "Dem. People's Rep. of Korea", 'DK' => "Denmark",
		'DJ' => "Djibouti", 'DM' => "Dominica", 'DO' => "Dominican Rep.", 'TP' => "East Timor", 'EC' => "Ecuador",
		'EG' => "Egypt", 'SV' => "El Salvador", 'GQ' => "Equatorial Guinea", 'ER' => "Eritrea", 'EE' => "Estonia",
		'ET' => "Ethiopia", 'FK' => "Falkland Islands", 'FO' => "Faroe Islands", 'FJ' => "Fiji", 'FI' => "Finland",
		'FR' => "France", 'GF' => "French Guiana", 'PF' => "French Polynesia", 'TF' => "French Southern Terr.s", 'GA' => "Gabon",
		'GM' => "Gambia", 'GE' => "Georgia", 'DE' => "Germany", 'GH' => "Ghana", 'GI' => "Gibraltar",
		'GB' => "Great Britain", 'GR' => "Greece", 'GL' => "Greenland", 'GD' => "Grenada", 'GP' => "Guadeloupe",
		'GU' => "Guam", 'GT' => "Guatemala", 'GW' => "Guinea-Bissau", 'GN' => "Guinea", 'GY' => "Guyana",
		'HT' => "Haiti", 'HM' => "Heard & McDonald Islands", 'HN' => "Honduras", 'HK' => "Hong Kong", 'HU' => "Hungary",
		'IS' => "Iceland", 'IN' => "India", 'ID' => "Indonesia", 'IR' => "Iran", 'IQ' => "Iraq",
		'IE' => "Ireland", 'IL' => "Israel", 'IT' => "Italy", 'JM' => "Jamaica", 'JP' => "Japan",
		'JO' => "Jordan", 'KZ' => "Kazachstan", 'KE' => "Kenya", 'KI' => "Kiribati", 'KW' => "Kuwait",
		'KG' => "Kyrgyzstan", 'LA' => "Lao People's Dem. Rep.", 'LV' => "Latvia", 'LB' => "Lebanon", 'LS' => "Lesotho",
		'LR' => "Liberia", 'LY' => "Libyan Arab Jamahiriya", 'LI' => "Liechtenstein", 'LT' => "Lithuania", 'LU' => "Luxembourg",
		'MO' => "Macau", 'MK' => "Macedonia ", '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",
		'MD' => "Moldova", 'MC' => "Monaco", 'MN' => "Mongolia", 'MS' => "Montserrat", 'MA' => "Morocco",
		'MZ' => "Mozambique", 'MM' => "Myanmar", 'NA' => "Namibia", 'NR' => "Nauru", 'NP' => "Nepal",
		'AN' => "Netherlands Antilles", 'NL' => "Netherlands", 'NC' => "New Caledonia", 'NZ' => "New Zealand", 'NI' => "Nicaragua",
		'NE' => "Niger", 'NG' => "Nigeria", 'NU' => "Niue", 'NF' => "Norfolk Is.", 'MP' => "Northern Mariana Islands",
		'NO' => "Norway", 'OM' => "Oman", 'PK' => "Pakistan", 'PW' => "Palau", 'PA' => "Panama",
		'PG' => "Papua New Guinea", 'PY' => "Paraguay", 'PE' => "Peru", 'PH' => "Philippines", 'PN' => "Pitcairn",
		'PL' => "Poland", 'PT' => "Portugal", 'PR' => "Puerto Rico", 'QA' => "Qatar", 'KR' => "Rep. of Korea",
		'RE' => "Reunion", 'RO' => "Romania", 'RU' => "Russia", 'RW' => "Rwanda", 'WS' => "Samoa",
		'SM' => "San Marino", 'ST' => "Sao Tome & Principe", 'SA' => "Saudi Arabia", 'SN' => "Senegal", 'SC' => "Seychelles",
		'SL' => "Sierra Leone", 'SG' => "Singapore", 'SK' => "Slovakia", 'SI' => "Slovenia", 'SB' => "Solomon Islands",
		'SO' => "Somalia", 'ZA' => "South Africa", 'GS' => "South Georgia and South Sandwich Islands", 'ES' => "Spain", 'LK' => "Sri Lanka",
		'SH' => "St. Helena", 'KN' => "St. Kitts & Nevis", 'LC' => "St. Lucia", 'PM' => "St. Pierre & Miquelon", 'VC' => "St. Vincent & The Grenadines",
		'SD' => "Sudan", 'SR' => "Suriname", 'SJ' => "Svalbard & Jan Mayen Islands", 'SZ' => "Swaziland", 'SE' => "Sweden",
		'CH' => "Switzerland", 'SY' => "Syrian Arab Rep.", 'TW' => "Taiwan", 'TJ' => "Tajikistan", 'TH' => "Thailand",
		'TG' => "Togo", 'TK' => "Tokelau", 'TO' => "Tonga", 'TT' => "Trinidad & Tobago", 'TN' => "Tunisia",
		'TR' => "Turkey", 'TM' => "Turkmenistan", 'TC' => "Turks & Caicos Islands", 'TV' => "Tuvalu", 'UM' => "US Minor Outlying Islands",
		'VI' => "US Virgin Islands", 'SU' => "USSR", 'UG' => "Uganda", 'UA' => "Ukrainian SSR", 'AE' => "United Arab Emirates",
		'UK' => "United Kingdom", 'TZ' => "United Rep. of Tanzania", 'US' => "United States", 'UY' => "Uruguay", 'UZ' => "Uzbekistan",
		'VU' => "Vanuatu", 'VA' => "Vatican City State", 'VE' => "Venezuela", 'VN' => "Viet Nam", 'WF' => "Wallis & Futuna Islands",
		'EH' => "Western Sahara", 'YE' => "Yemen", 'YU' => "Yugoslavia", 'ZR' => "Zaire", 'ZM' => "Zambia",
		'ZW' => "Zimbabwe",
	);
foreach my $key (sort by_value keys %countries) {
     print $key, '=', $countries{$key}, "n";
}
sub by_value {
	$countries{$a} cmp $countries{$b}; }

Comments

No comments yet.

Execution time: 0.06647

Sorting a hash by the hash value

Sorting a hash by the hash value

Comments

Post a comment