Only one of each 1

[Guest_imported]

I've got a scores script for a game i've made but it only shows one person for each number of kills.

You can see the result at

http://www.digimons.org.uk/game/scores.htm

foreach my $key ( sort { $b <=> $a } keys %scores ) {
unless ($key == &quot;0&quot {
print scorehtm &quot;<TR><TD>$key<TD>$scores{$key}&quot;;
}
}

Anyone know why only one for each value is returned?

 

[sackyhack]

It looks like your %scores hash has a score
for a key, and one name as the value. The
problem is how you are assigning values to
the hash. Each key only occurs once, so if
you do something like:

$scores{56} = 'Fred';
$scores{56} = 'Barney';

The second assignment overwrites the first.

If I was doing this I think I'd just turn
the whole thing around and have the name as
the key and the score as the value. Then
do something like:

foreach my $key ( sort { $scores{$b} <=> $scores{$a} } keys %scores ) {
   unless ($key == &quot;0&quot;) {
      print scorehtm &quot;<TR><TD>$scores{$key}</TD><TD>$key</TD></TR>&quot;;
   }
}

 

[Guest_imported]

Thanks, it works now.