Mega Code Archive

 

Categories / Perl / Hash

 

Sort Hash by Keys in Reverse Order

%salary = ("P"  => 10,            "S"  => 12,            "C"  => 5,            "S"  => 6,            "L"  => 11,            "D"  => 8, ); foreach $key (reverse sort(keys %salary)) {    printf "\t% -20s%5d\n", $key, $salary{$key}; }