perl DBI mysql包安装详解

1.安装mysql 并运行
2.首先安装DBI ：

Perl MakeFile.PL

Make

Make install

3.DBD-mysql包

#perl Makefile.PL --mysql_config=/usr/local/mysql/bin/mysql_config （指定mysql_config位置）

或者：

#perl Makefile.PL -mysql_config=/home/mysql/bin/mysql_config -testuser=root -testpassword=dbadmin

#make

#make test //检测安装是否成功，如果在此处有错误提示，则需要做后面的cp 文件的动作

#make install

install_driver(mysql) failed: Can't load '/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/DBD/mysql/mysql.so' for module DBD::mysql: libmysqlclient.so.12: cannot open shared object file: No such file or directory at /usr/lib/perl5/5.8.5/i386-linux-thread-multi/DynaLoader.pm
line 230.

at (eval 6) line 3

Compilation failed in require at (eval 6) line 3.

Perhaps a required shared library or dll isn't installed where expected

at /root/mysqlreport line 162

cp文件的动作：

#cp /usr/local/mysql40/include/mysql/* /usr/include/ #cp /usr/local/mysql40/lib/mysql/* /usr/lib/

测试：

首先在test库中创建一个table：

如果能够正确的显示出testuser 那表示安装成功。

create table test(id int,name varchar(30))

然后执行下面的Perl脚本插入一条数据并且查询得到结果：

#!/usr/bin/perl

use DBI;

my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost","testuser","testpassword", {'RaiseError' => 1}); #此处注意下区别

my $rows = $dbh->do("INSERT INTO test (id, name) VALUES (1, 'testuser')");

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

$query->execute();

while(my $rs = $query->fetchrow_hashref()) {

print "$rs->{'name'}/n";

}

然后再重新安装DBD: DBD-mysql-4.005

#make clean

#perl Makefile.PL --mysql_config=/usr/local/mysql/bin/mysql_config

#make

#make test

#make install