Hash Perl

  1. Home
  2. Perl
  3. Hash
  4. 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};
}