No subject

Bill Wood wwood at
Wed Apr 23 14:22:16 CDT 2003

Can someone help me out. I've got a problem where perl seems to be 
evaluating the test at line 6 below in a string context. I'm taking the 
results of database call to a datediff function and doing a greater than 
test. When the result is negative the if branch is still being taken. I 
can't see what is wrong here.

1	my $date_diff=0;
2	my $diff_test = 0;
3	my $sql = qq/
4	select datediff(dd,"$last_used_date{$card_key}","$trans_date")/;
5	@ret = $dbh->sql("$sql",sub {($date_diff)=@_;});

6	if	($date_diff > $diff_test ) {
7		$last_used_date{$card_key} = $trans_date;
8		}

This is perl, version 5.005_03 built for sun4-solaris

All comments appreciated, thanks

Bill Wood
University of California at San Diego
Administrative Computing and Telecommunications - 0929
10280 North Torrey Pines Rd.
La Jolla, Ca   92093-0929

EMail:	wwood at
Phone:	858/534-1291
Fax:	858/534-7656


The posting address is: san-diego-pm-list at

List requests should be sent to: majordomo at

If you ever want to remove yourself from this mailing list,
you can send mail to <majordomo at> with the following
command in the body of your email message:

    unsubscribe san-diego-pm-list

If you ever need to get in contact with the owner of the list,
(if you have trouble unsubscribing, or have questions about the
list itself) send email to <owner-san-diego-pm-list at> .
This is the general rule for most mailing lists when you need
to contact a human.

More information about the San-Diego-pm mailing list