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