This is not exactly an answer to your question, but hopefully it will be
helpful.
Whenever I have what is for me a non-trivial problem in an application, I
write a script that deals only with what seems to be the error in the
application script. I then fiddle with the former until I solve the problem.
This helps me in various ways:
o getting rid of irrelevant code makes the problem elements
easier to focus on
o the process of transforming the application code aids
clarity and creativity
o if I can't solve the problem by myself, I have something which is
easily understandable in a maillist forum
If you set up some automation, the process of extracting the problem from the
application into a study script is easy.
tom arnall
north spit, ca
On Thursday 23 March 2006 01:13 am, Val Genova wrote:
> 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>
