am a real newbie to perl 
I have a friend who wrote this program  which outputs the scores of my
friends
the code works and outputs the correct scores and arrangement of the scores
but im having  this error on my http/error_log,  



this is the error:
[Thu Mar 23 16:43:28 2006] [error] [client 203.167.64.13] Argument
"3,41,Carla Joyce Dimaranan" isn't numeric in numeric comparison (<=>) at
/var/www/cgi-bin/bugscoring/scores.cgi line 224., referer:
http://some.domain.com/cgi-bin/bugscoring/scores.cgi
[Thu Mar 23 16:43:28 2006] [error] [client 203.167.64.13] Argument
"0,40,Jeremy Zara" isn't numeric in numeric comparison (<=>) at
/var/www/cgi-bin/bugscoring/scores.cgi line 224., referer:
http://some.domain.com/cgi-bin/bugscoring/scores.cgi
[Thu Mar 23 16:43:28 2006] [error] [client 203.167.64.13] Argument
"0,43,Frederick Bajao" isn't numeric in numeric comparison (<=>) at
/var/www/cgi-bin/bugscoring/scores.cgi line 224., referer:
http://some.domain.com/cgi-bin/bugscoring/scores.cgi

this is my friend's script

# collect all score
      my @output = ();
      my @old_output = ();
      foreach my $list (@bugkillers) {
        my ($id,$name) = split(/,/, $list);
        my $score =
$Bugs->getSCORE($showold,$id,$contest,$pContest,$groups);
        push(@output,"$score,$id,$name");
      }
      # print result
      foreach my $result (sort {$b <=> $a} @output) {
        my ($score,$id,$name) = split(/,/, $result);
        $html.=<<HTMLcode;

I tried to replace the spaceship operator <=> to cmp, and get rid of the
error, but scores are not arrange from highest to lowest.
hope somebody help me. thanks in advance.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to