On Thu, May 17, 2001 at 05:15:56PM +0100, David Cantrell wrote:
> Did you mean like this?
>
> tie my %scores, 'Tie::Hash::Rank';
> [overengineering snipped]

Or you could do it in two lines:

my $i;
my %rank = map { $_ => ++$i } sort {$scores{$a} <=> $scores{$b}} keys %scores;

-- 
teco < /dev/audio
    - Ignatios Souvatzis

Reply via email to