使用Perl来进行Hash表排序

[[email protected] perl]# cat hash5.pl

#!/usr/bin/perl -w

%hash = (
'fruit' , 'apple',
'sandwich' , 'hamburger',
'drink' , 'bubbly',
);

foreach $key (sort {myfunction($a,$b)} keys %hash){
print "$key => $hash{$key}\n";
}

sub myfunction
{
return (shift(@_) cmp shift(@_));
}