基于oracle linux的 DBI/DBD

一、安装DBI
DBI(Database Interface)是perl连接数据库的接口。其是perl连接数据库的最优
秀方法，他支持包括Orcal,Sybase,mysql,db2等绝大多数的数据库，下面将简要
介绍其安装方法。
1.1解压
tar -zxvf DBI-1.616_901.tar.gz

1.2安装依赖
yum install perl-ExtUtils-CBuilder perl-ExtUtils-MakeMaker
yum install perl-Test-Simple-0.98-243.el7.noarch.rpm
yum install gcc

1.3进入目录
cd DBI-1.616/

1.4编译
perl MakefIle.PL
make

1.5执行测试
make test

1.6安装
make install
二、安装DBD:oracle
DBI只是个抽象层，要实现支持不同的数据库，则需要在DBI之下，编写针对不同数据库的驱动，对MySql来说，有DBD::Mysql, 而对Oracle来说，则是DBD::Oracle。其中的DBD这是DataBase Driver之简写

2.1解压
tar -zxvf DBD-Oracle-1.36.tar.gz

2.2环境变量设置（按照真实环境修改）
export ORACLE_HOME=/oracle/app/product/19.3.0/db_1
export LD_LIBRARY_PATH=$ORACL{E}_{H}OME/lib:/usr/libexportTN{S}_{A}DMIN=$ORACLE_HOME/network/admin
export ORACLE_USERID=def/oracle
export ORACLE_SID=orcl
export ORACLE_BASE=/oracle/app

2.3进去目录
cd DBD-1.36/

2.4编译
perl MakefIle.PL
make

2.5执行测试
make test

2.6安装
make install

三、测试
3.1创建测试文件
vi check.pl

内容如下：
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;

my $inst=ExtUtils::Installed->new();

my @modules = $inst->modules();

foreach(@modules){
my $ver = $inst->version($_) || “???”;
printf(“%-12s – %s\n”,${}_{,}$ver);
}

3.2给予权限
chmod +x check.pl

3.3进行检测
perl check.pl

结果如下：
DBD::Oracle – 1.70
DBI – 1.642
Perl – 5.16.3