- 论坛徽章:
- 0
|
连接oracle数据库的程序
在redhat 304上
perl -version
This is perl, v5.8.0 built for i386-linux-thread-multi
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2002, Larry Wall
程序如下
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
$ENV{'ORACLE_HOME'} = '/opt/oracle/product/9.2';
$ENV{'NLS_LANG'} = 'AMERICAN_AMERICA.zhs16gbk';
$ENV{'LD_LIBRARY_PATH'} = '/opt/oracle/product/9.2/lib:/lib:/usr/lib:/usr/local/lib';
$ENV{'ORA_NLS33'} = '/opt/oracle/product/9.2/ocommon/nls/admin/data';
my $dbname="test";
my $user="test";
my $passwd="test";
my $dbh = DBI->connect("dbi:Oracle dbname",$user,$passwd) or die ("can't connect to oracle database ". $DBI::errstr);
my $sth=$dbh->prepare("select * from tab" ;
my $rc=$sth->execute;
my @recs;
while (@recs = $sth -> fetchrow_array()) {
print $recs[0].":".$recs[1]."\n";
}
$dbh->disconnect();
$sth->finish();
可以正常运行的,但是编译后
perlcc -o test test.pl
$ ./test
DBD::Oracle initialisation failed: Undefined subroutine &DBI::common::STORE called at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/DBD/Oracle.pm line 61.
at test.pl line 18
请问有什么地方不对啊
安装过dbi-1.53
dbd-oracle 1.19 |
|