perl对mysql进行插入与查询操作的代码

#!/usr/bin/perl -w
use strict;
use DBI;　#连接数据库用，与mysql数据库打交道，如果你有其他数据库的驱动也可以与其他数据库打交道．
 
my $dbh;
my $rows;
my $dsh;
my $sql;
my $ref;
 
向mysql数据库里插入3条记录：
$dbh = DBI->connect("DBI:mysql:database=test;host=localhost","test","test",{RaiseError => 1}); #利用DBI连接mysql数据库
$rows = $dbh->do("insert into tt values(1,'test1'),(2,'test2'),(3,'test3')");
$dbh->disconnect();
 
$dsh = DBI->connect("DBI:mysql:database=test;host=localhost","test","test",{RaiseError =>1}); #向mysql数据库查询数据，返回给perl
$sql = $dsh->prepare("select * from tt");
$sql->execute();
 
while($ref=$sql->fetchrow_hashref()) #将依次的打印出此表的记录
{
  my $id = $ref->{'id'};
  my $name = $ref->{'name'};
  print "$id---$namen";
}
$dsh->disconnect(); #关闭连接数据库