debian下安装DBD::Oracle

1、在

然后下载以下安装包（使用的是10g的客户端，最新的为11g的）：

Oracle-instantclient-basic-10.2.0.5-1.i386.rpm

oracle-instantclient-devel-10.2.0.5-1.i386.rpm

oracle-instantclient-jdbc-10.2.0.5-1.i386.rpm

oracle-instantclient-sqlplus-10.2.0.5-1.i386.rpm

2、debian不能直接安装rpm包，需要使用alien

运行 apt-get install alien libaio
sudo alien --scripts *.rpm
dpkg -i *.deb

3、在 /etc/ld.so.conf 文件最后，加入一行：

/usr/lib/oracle/10.2.0.5/client/lib

然后执行 ldconfig 使配置生效。

（执行 sqlplus 来验证配置。）

4、在 /etc/profile 文件最后，加入：

export ORACLE_HOME=/usr/lib/oracle/xx.x/client
export PATH=$PATH:$ORACLE_HOME/bin
export LD_LIBRARY_PATH=$ORACLE_HOME/lib

然后执行source /etc/profile 使配置生效。

（执行 echo $ORACLE_HOME 来验证配置。）

5、在cpan上下载DBD::Oracle，编译安装
    cd
    perl make*.PL
    make
    make install


 执行代码：

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $db_host = "192.168.6.201";
my $db_port = "1521";
my $db_sid  = "bill";
my $db_user = "scott";
my $db_pass = "tiger";

my $database = "dbi:Oracle://$db_host:$db_port/$db_sid";
my $dbh = DBI->connect( $database,$db_user,$db_pass ) or die "Can't connect to database";

my $sql = 'select count(*) from EMP';
my $sth = $dbh->prepare( $sql );
$sth->execute;

my $count = $sth->fetchrow_array;
$sth->finish();

print "The table EMP have [$count] rows.\n";

$dbh->disconnect;
print "Perl connect Oracle is OK!\n";