Mega Code Archive

 

Categories / Perl / Hash

 

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(@_)); }