perl DBI与数据库交互的例子

#!/usr/bin/perl -w
#use strict;
#
use DBI;
$drive="mysql";
$dsn="DBI:$drive:database=mydb;host=localhost";
$dbh=DBI->connect($dsn,"root","xianlin");

#插入数据
$SNO="0209121";
$SNAME="苑华伟";
$sex="男";
$hight=1.70;
#$dbh->do("INSERT  STUDENT(SNO,SNAME,SEX,HEIGHT) VALUES('0209121','苑华伟','男',1.70)");  ＃insert后面没有into
#$dbh->do("INSERT  STUDENT(SNO,SNAME,SEX,HEIGHT) VALUES('".$SNO."','".$SNAME."','".$sex."',".$hight.")");  #insert后面没有into
##-----读取数据库中的数据-------#

#更新数据
$dbh->do("UPDATE STUDENT SET SNAME='华华' WHERE SNO='0209121'");  #insert后面没有into
##------读取数据库中的数据-------#

#删除数据
#$dbh->do("DELETE FROM STUDENT WHERE SNO='0209121'");  #insert后面没有into
#$dbh->do("DELETE FROM STUDENT WHERE SNO='".$SNO."'");  #insert后面没有into
##-------读取数据库中的数据------#

#读取数据库中的数据
my $sth=$dbh->prepare("SELECT SNO,SNAME FROM mydb.STUDENT");
$sth->execute();
$i=0;
while(my @a=$sth->fetchrow_array() )
{
   print "@at";       #取出整个原组
   print "$a[0]--->$a[1]n";  #取出原组的某列 
}
$sth->finish();
$dbh->disconnect();