[thelist] Perl program question

Portman mrport at sbcglobal.net
Fri Jun 9 13:50:43 CDT 2006

Thank you David. I got the script from a friend and didn't want to 
change too much of it - hence the weird stuff in there. I will look at 
the code again and make the changes (and remove some of the weird stuff 
once it is working).

Thanks for the reply.

MILLER David R. wrote:
> I don't have time to figure out exactly what you're doing with this
> script, and there are some weird ways you're doing things, but what you
> want to do is get this up and running.
> The line
> $arg =~ m/(\d+\.\d{2})/;
> presumably snags the total from the query string. The parentheses in the
> regexp will put the captured value TEMPORARILY in $1. You rely on $1
> later in the script to represent the total, and I think that's the crux
> of your problem.
> Try changing the line above to
> my ($total) = $arg =~ m/(\d+\.\d{2})/;
> and then using $total instead of $1 in your calculations and elsewhere.
> BTW, I belive you could just use 
> my $total = $q->param('total');
> to retrieve the total, which would be more reliable.
> -----------------------------------------
> David R. Miller
> -----------------------------------------

More information about the thelist mailing list