Mega Code Archive

 

Categories / Perl / Hash

 

Sort Hash by Keys Numerically

sub desc_sort_subject {     $b <=> $a;           # Numeric sort descending } sub asc_sort_subject{     $a <=> $b;           # Numeric sort ascending } %courses = (         "101" => "I",         "221" => "L",         "300" => "A",         "102" => "P",         "103" => "P",         "200" => "L", ); foreach $key (sort asc_sort_subject(keys(%courses))) {     printf "\t%-5d%s\n", $key, $courses{"$key"}; } foreach $key (sort desc_sort_subject(keys(%courses))) {     printf "\t%-5d%s\n", $key, $courses{"$key"}; }