初试 perl mysql DBI

1.使用cpan安装DBI会有问题。

安装方法为：

perl -MCPAN -e "install DBI"
perl -MCPAN -e "install DBD::mysql"
CPAN安装DBD时会运行make test，需要配置mysql帐号，make test失败后可推出cpan，手工进行后续安装；
cd ~/.cpan/build/
perl Makefile.PL --mysql_config=/usr/local/mysql/bin/mysql_config --with-mysql=/usr/local/mysql
make
make install
ln -s /usr/local/mysql/lib/libmysqlclient.so.16.0.0 /usr/lib/libmysqlclient.so.16
2.这次使用DBI主要是为了，测试mysql-proxy，代码很简单，如下：

 

#!/usr/bin/perl

use warnings;
use strict;
use DBI;
my $dbname="db_test";
my $location="192.168.1.100";
my $port="4040";
my $db_user="root";
my $db_pass="xxx";
my $database="DBI:mysql:$dbname:$location:$port";
my $dbh=DBI->connect($database,$db_user,$db_pass);
my $count=0;
foreach(1..100){
       #my $row=$dbh->do("insert into tt values($_)");

       my $sql="select id from tt where id=$_";
       my $sth=$dbh->prepare($sql) or die "can't prepare sql, ".$dbh->errstr;
       $sth->execute();
       my $res=$sth->dump_results();
       if($res eq ""){
         $count++;
       }
       else{
           print $res."\n";
       }
       $sth->finish();
}
$dbh->disconnect();
print "error counts is $count\n";