Re: Chomp Maybe?

I can think of three ways to get what you want...

You can take the negative of the value in the sql...

$dbh=$db->prepare("SELECT -balance FROM Table1 
                   WHERE  username='$authuser' 
                          and balance < '-.01'");
$dbh->execute();
($balance_due) = $dbh->fetchrow_array();
[download]

You can take the negative of the value in the perl...

$dbh=$db->prepare("SELECT -balance FROM Table1 
                   WHERE  username='$authuser' 
                          and balance < '-.01'");
$dbh->execute();
($tmp) = $dbh->fetchrow_array();
$balance_due = 0 - $tmp;
[download]

You can use substr to strip out the first character...

$dbh=$db->prepare("SELECT -balance FROM Table1 
                   WHERE  username='$authuser' 
                          and balance < '-.01'");
$dbh->execute();
($tmp) = $dbh->fetchrow_array();
$balance_due = substr $tmp, 1;
[download]

...there are lots of other things you can do ... but I would recommend the first one above.

Comment on Re: Chomp Maybe? Select or Download Code

Replies are listed 'Best First'.
Re: Re: Chomp Maybe? by th3monk3y (Novice) on Jul 01, 2003 at 04:58 UTC
Thanks again! -p	[reply]