打算熟悉下perl，自然主要用于数据库管理和监控方面的，所以需要连接数据库。Perl连接数据库可以通过DBI模块和相应数据库的DBD驱动，上一篇记录了DBI模块的安装，这里记录下DBD::mysql驱动的安装。可以从CPAN下载相应DBD驱动。
安装过程很简单，下载解压：
gzip -d DBD-mysql-4.006.tar.gz
tar xvf DBD-mysql-4.006.tar
tar xvf DBD-mysql-4.006.tar
然后进入DBD-mysql-4.006目录，执行：
perl Makefile.PL
make
make test
make install
make
make test
make install
检查已经安装好的Perl模块：
# ./perl-module.pl
DBD::mysql
DBI
Perl
DBD::mysql
DBI
Perl
安装DBD::mysql需要mysql_config，包含在Headers and libraries安装包中（MySQL-devel-community-5.1.23-0.rhel4.i386.rpm），并且PATH环境变量中必须包含mysql_config所在的路径。否则在执行perl Makefile.PL生成makefile的时候会报错：
Can’t exec “mysql_config”: No such file or directory at Makefile.PL line 76.
Cannot find the file ‘mysql_config’! Your execution PATH doesn’t seem
not contain the path to mysql_config. Resorting to guessed values!
Can’t exec “mysql_config”: No such file or directory at Makefile.PL line 466.
安装好DBI和DBD::mysql后，就可以访问MySQL数据库啦，首先在test库中创建一个table：
create table test(id int,name varchar(30))
然后执行下面的Perl脚本插入一条数据并且查询得到结果：
#!/usr/bin/perl
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost","NinGoo","password", {'RaiseError' => 1});
my $rows = $dbh->do("INSERT INTO test (id, name) VALUES (1, 'NinGoo')");
my $query = $dbh->prepare("SELECT name FROM test");
$query->execute();
while(my $rs = $query->fetchrow_hashref()) {
print "$rs->{'name'}\n";
}
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost","NinGoo","password", {'RaiseError' => 1});
my $rows = $dbh->do("INSERT INTO test (id, name) VALUES (1, 'NinGoo')");
my $query = $dbh->prepare("SELECT name FROM test");
$query->execute();
while(my $rs = $query->fetchrow_hashref()) {
print "$rs->{'name'}\n";
}
已为社区贡献1条内容
所有评论(0)