Hi
I wrote a script which using bind param function of
the DBI and it works perfectly fine on one server but
not on the other one. My first server has the perl
5.003/DBI 0.79 and my second server has perl
5.6.0/DBI 1.13.I noticed that the bind param function
stopped taking empty strings as one of the parameter
on the new server.I am getting an error called "Bad
file number" when I am trying to excute the
statement. I wonder what that means. Everything is
working perfectly fine on my old server.Can any one
please tell me what the problem is????
the script is very simple and is as follows.......
**********************************************************
#!/usr/local/bin/perl
use DBI; # Only for DBI
print "Content-type: text/html\n\n";
$lda = DBI->connect( 'dpscs4', 'meweb01',
'meweb01',Oracle );
$sql = "insert into table_name
(ID_USER,ID_RACF,ID_ROLE,ID_LAST_UPDATE,
DT_LAST_UPDATE)values(:TEST1,:TEST2,:TEST3,:TEST4,:TEST5)";
$csr = $lda -> prepare($sql) || die $ora_errstr;
$csr->bind_param(":TEST1","STEVE");
$csr->bind_param(":TEST2"," "); # here it dosen't take
an empty string
$csr->bind_param(":TEST3","1");
$csr->bind_param(":TEST4","RYENUMUL");
$csr->bind_param(":TEST5","2000-12-09");
if( $csr -> execute )
{
print "Could execute\n";
$ret = $lda->rollback ;
$csr -> finish;
}
else{
print "Could not execute because: $!\n";
}
$ret = $lda->disconnect;
__________________________________________________
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
