linux7.4 安装perl DBD-ORACLE

最新推荐文章于 2023-03-13 10:40:33 发布

xiaoxiao树

最新推荐文章于 2023-03-13 10:40:33 发布

阅读量573

点赞数

分类专栏： linux

本文链接：https://blog.csdn.net/u010719917/article/details/104309982

版权

linux 专栏收录该内容

27 篇文章 0 订阅

订阅专栏

下载DBD-ORACLE

https://metacpan.org/pod/DBD::Oracle

放在/tmp/下解压

/tmp/DBD-Oracle-1.80

root用户下，添加环境变量：

export ORACLE_BASE=/home/db/oracle
export ORACLE_HOME=$ORACLE_BASE/product/11.2.0
export GRID_HOME=/home/db/grid/product/11.2.0
export LD_LIBRARY_PATH=:$ORACLE_HOME/lib:$ORACLE_HOME/lib32
export LIBPATH=$LD_LIBRARY_PATH
export PATH=$ORACLE_HOME/bin:$ORACLE_HOME/OPatch:$GRID_HOME/bin:/usr/bin:/etc:/usr/sbin:

安装：

cd /tmp/DBD-Oracle-1.80
perl Makefile.PL
make
make install

测试perl访问oracle:

#!/usr/bin/perl  
use DBI;  
$dbh = DBI->connect("dbi:Oracle:testdb", "system", "oracle") or die("DB connect error!\n");  
$sql = "select * from dual";  
$sth = $dbh->prepare($sql);  
$sth->execute() or die("error!");  
while(@rows = $sth->fetchrow_array)  
{  
        foreach(@rows)  
        {  
                print "$_\t";  
        }  
        print "\n";  
}  
$sth->finish;

显示'x'为ok