这篇文章主要介绍怎么通过perl 的DBI 模块来操作sql 数据库。本文假设你已经了解了SQL的基本用法和perl 语言。
一 perl下如何连接sql。
DBI下有很多方法都可以连接到sql， 本例介绍的方法只是其中的一种，它使用的是ODBC。读者可以尝试使用mysql等。实例如下：
二 接下来看如何创建一个表以及表的相关insert， update， delete等操作。
1 建立一个表：
$SQL= "create table [user](ID integer primary key identity(1, 1), username text not null, password text not null, email text not null)";
$CreateTable = $dbh->do($SQL);
$CreateTable = $dbh->do($SQL);
2 insert update和delete
3 读取数据：
$SQL= "select * from [user]";
$Select = $dbh->prepare($SQL);
$Select->execute();
while($Row=$Select->fetchrow_hashref)
{
print "$Row->{username} $Row->{email}";
}
$Select = $dbh->prepare($SQL);
$Select->execute();
while($Row=$Select->fetchrow_hashref)
{
print "$Row->{username} $Row->{email}";
}
--- END