一、安装DBI

DBI(Database Interface)是perl连接数据库的接口。其是perl连接数据库的最优
秀方法，他支持包括Orcale,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

oracle_24">二、安装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=$ORACLE_HOME/lib:/usr/lib
export TNS_ADMIN=$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