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]."
";
}
$dbh->disconnect;
[mysql@master ~]$ perl 1.pl
1::
100::