12 lines
233 B
Perl
12 lines
233 B
Perl
|
$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(@_));
|
||
|
|
}
|