论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2006-02-06 19:00 |只看该作者 |倒序浏览

#!/usr/bin/perl
use CGI qw(:standard escape);
use DBI qw(:sql_types);

$CGI:

OST_MAX=10000;
$CGI:

ISABLE_UPLOADS = 1;

print "Content-type:text/html\n\n";

print "<html><head><title>Have a try</title></head><body>";
print "<table><tr><td>footprint1</td></tr></table>\n\n";

my $db_dbh = DBI->connect ("dbi:Oracle:test","scott","tiger",);

my $db_sth = $db_dbh->prepare("select id,name,title,phone from test"

;

$db_sth->execute();

my($id,$name,$title,$phone);
$db_sth->bind_columns(undef,\$id,\$name,\$title,\$phone);

while( $db_sth->fetch() ) {
      print "<table><tr>";
      print "<td>Object: $id, $name, $title,$phone</td>\n";
      print "</tr></table>";

}
print "</body></html>\n";
$db_sth->finish();
$db_dbh->disconnect;

在终端执行是好的, 但是在APACHE中只执行到 my $db_dbh=DBI....之前

多谢!!!

[ 本帖最后由 easytolab 于 2006-2-6 21:10 编辑 ]

文库|博客

easytolab

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2006-02-06 19:45 |只看该作者

error messages

install_driver(Oracle) failed: Can't load '/usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: ld.so.1: perl: fatal: /export/home/oracle/ora10/product/lib32/libclntsh.so.10.1: Permission denied at /usr/local/lib/perl5/5.6.1/sun4-solaris/DynaLoader.pm line 206.
at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a required shared library or dll isn't installed where expected
at ./getdate.pl line 16