Re: [MacPerl-AnyPerl] sorting by hash value

thank you
works brilliantly!

../allan


David Iberri wrote:
> 
> Hi Allan,
> 
> How about sorting the hash keys by their value,
> instead of inverting the hash?
> 
> my %presVocab = (
>   'nuclear' => 'nuculear',
>   'terror'  => 'terra',
>   'horror'  => 'horra'
> );
> 
> my @keys_sorted_by_value = sort {
>   $presVocab{$a} cmp $presVocab{$b}
> } keys %presVocab;
> 
> foreach my $key(@keys_sorted_by_value) {
>   print "$key => $presVocab{$key}\n";
> }
> 
> Cheers,
> David Iberri