1、查看系统上是否已经安装好了DBI,perl -e "use DBI",如果没有出现错误且没有退出,表明已经安装
此模块。
2、如果未安装,到
www.cpan.org进行下载两个模块,DBI-1.607.tar.gz和DBD-mysql-4.010进行安装。
tar -xzvf DBI-1.607.tar.gz
cd DBI-1.607
perl Makefile.PL
make
make test
make install
DBD-myql-4.010也同样的方式进行安装。
3、通过下面的perl脚本连接数据库:
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost","root","123456");
my $sth = $dbh->("select * from clients");
$sth->execute();
while(my $ref = $sth->fetchrow_hashref())
{
print "cid=$ref->{'cid'} and cname=$ref->{'cname'}\n";
}
$sth->finish();
$dbh->disconnect();