Perl中DBI、DBD::mysql模块的安装和可能出现的错误解决方法

使用的软件版本

DBI-1.604.tar.gz
DBD-mysql-4.006.tar.gz
建议使用以上版本搭配，否则可能连接mysql错误
一、DBI的安装
 wget http://www.cpan.org/modules/by-module/DBD/DBI-1.604.tar.gz
 tar -zxvf DBI-1.604.tar.gz
 cd DBI-1.604
 perl Makefile.PL
 make
 make test
 make install

 

 
二、DBD的安装
 
 注意mysql的环境变量，若没有则用 添加/usr/local/mysql/bin到环境变量PATH中
 PATH=/usr/local/mysql/bin:$PATH;
 export PATH (mysql的安装路径根据实际情况填写)
 
  wget http://cpan.perl.org/modules/by-module/DBI/DBI-1.601.tar.gz
 tar -zxvf DBD-mysql-4.006.tar.gz
 cd DBD-mysql-4.006
 perl Makefile.PL –mysql_config=/usr/local/mysql/bin/mysql_config
 make
 make test
 make install
 

 

三、其它可能发生的状况

如果运行某个调用MYSQL数据库的程序时出现如下系统提示：
install_driver(mysql) failed: Can't load '/usr/lib/perl5/site_perl/5.6.1/i386-linux/auto/DBD/mysql/mysql.so' for module DBD::mysql: /usr/lib/perl5/site_perl/5.6.1/i386-linux/auto/DBD/mysql/mysql.so: undefined symbol: uncompress at /usr/lib/perl5/5.6.1/i386-linux/DynaLoader.pm line 206. at (eval 2) line 3
那么说明DBD::MYSQL未安装成功。
此时将/usr/local/mysql/include/mysql/*
复制到/usr/include/
同时将/usr/local/mysql/lib/mysql/*
复制到/usr/lib/(64位系统 /usr/lib64/)
然后使用perl Makefile.PL设置环境，再进行后续的正常安装，就能正确连接到MYSQL数据库。

 

 

四、连接代码示例，下面是perl通过DBI连接到mysql数据库的示例代码:

 

#!/bin/perl

use DBI;

# Connect to target DB
my $dbh = DBI->connect("DBI:mysql:database=linuxpig;host=localhost","your_username","your_password", {'RaiseError' => 1});

# Insert one row
my $rows = $dbh->do("INSERT INTO test (id, name) VALUES (1, 'welcome to linuxpig.com')");

# query
my $sqr = $dbh->prepare("SELECT name FROM test");
$sqr->execute();

while(my $ref = $sqr->fetchrow_hashref()) {
print "$ref->{'name'}\n";
}

$dbh->disconnect();

执行结果:

[root@linuxpig ~]# perl test.pl

 

 

五、其他安装方法：

使用CPAN shell,以root身份登陆，然后发出如下命令：
#perl -MCPAN -e shell
cpan>install DBI
cpan>install DBD::mysql
cpan>install CGI