dbi:mysql_MYSQL 使用DBI

一 安装DBI

tar -zxvf DBI-1.633.tar.gz

cd DBI-1.633

perl Makefile.PL

make

make test

make install

二 安装DBD

[mysql@master ~]$ id mysql

uid=500(mysql) gid=500(mysql) groups=500(mysql)

[mysql@master ~]$ which mysql

/usr/local/mysql5.6/bin/mysql

查看root的信息

[root@master mysql]# which mysql

/usr/bin/mysql

修改root的环境变量:

[root@master mysql]# id

uid=0(root) gid=0(root) 缁.0(root),1(bin),2(daemon),3(sys),4(adm),6(disk),10(wheel)

[root@master mysql]# which mysql

/usr/local/mysql5.6/bin/mysql

[root@master mysql]#

perl Makefile.PL --mysql_config=/usr/bin/mysql_config

make

make test

make install

[mysql@master ~]$ cat 1.pl

#!/usr/bin/perl

use DBI;

$user="test";

$passwd="123456";

$dbh="";

$dbh = DBI->connect("dbi:mysql:database=plmsdb;host=10.10.17.5;port=3306",$user,$passwd) or die "can't connect to

database ". DBI-errstr;

$sth=$dbh->prepare("select * from test");

$sth->execute;

while (@recs=$sth->fetchrow_array) {

print $recs[0].":".$recs[1].":".$recs[2]."\n";

}

$dbh->disconnect;

[mysql@master ~]$ perl 1.pl

1::

100::