mysql dbi 操作<1>

[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 test");$sth->execute;while (@recs=$sth->fetchrow_array) {foreach (@recs){print "$_\n"}}$dbh->disconnect;[mysql@master ~]$ perl 1.pl1100