mysql dbi 取多列数据

[mysql@master ~]$ perl 1.pl1aaa2014-01-012b2015-05-01[mysql@master ~]$ cat 1.pl #!/usr/bin/perluse 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 todatabase ". DBI-errstr;$sth=$dbh->prepare("select * from person");$sth->execute;while (@recs=$sth->fetchrow_array) {foreach (@recs)       {print "$_"}       print "\n";}$dbh->disconnect;[mysql@master ~]$ perl 1.pl1aaa2014-01-012b2015-05-01