Hash Perl

  1. Home
  2. Perl
  3. Hash
  4. Using customized function to sort keys in a hash
$hash{fruit} = apple;
$hash{sandwich} = hamburger;
$hash{drink} = bubbly;
foreach $key (sort {myfunction($a, $b)} keys %hash) {
    print "$key => $hash{$key}\n";
}
sub myfunction
{
   return (shift(@_) cmp shift(@_));
}