mysql dbi 操作

[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) {
foreach (@recs){print "$_
"}
}
$dbh->disconnect;
[mysql@master ~]$ perl 1.pl
1
100