基本的Perl DBI例子 [DBI]

lvdbing

#!/usr/bin/perl -w use strict; use DBI; my $server   = 'localhost'; my $db       = 'Test'; my $username = 'lvdbing'; my $password = '123456'; my $dbh = DBI->connect("dbi:mysql:$db:$server",$username,$password); my $query = "SELECT * FROM Titles"; my $sth = $dbh->prepare($query); $sth->execute(); while (my $row = $sth->fetchrow_arrayref) {     print join ("\t",@$row),"\n"; } $dbh->disconnect;

基本的事件顺序：
1. 连接数据库
2. 建立查询
3. 建立语句句柄
4. 执行语句句柄
5. 检索并处理结果

Perl与MySQL之间的所有交互通过数据库句柄(Database Handle)来完成。这是实现所有用于与数据库通信的方法的对象。可以打开任意数量的数据库句柄，只要系统资源允许。








首先要使用use语句来得到对DBI模块的访问

use DBI;

调用第一个DBI的方法是:connect()方法，它创建数据库句柄。它接受3个参数，第一个参数由下面几部分组成：

1. 数据源
    a. 字符串dbi
    b. 驱动程序名mysql   
    c. 数据库名          (这里使用"Test"为例)
    d. 主机              (这里使用的是"localhost")

2. 用户名                (这里是"lvdbing")

3. 数据库密码           (这里是"123456")

数据库句柄就保存在$dbh里，这个句柄可以用于发出查询、更新或任何SQL语句。

然后在$query变量中创建SQL查询，将其封装为Perl的字符串。然后根据查询准备一个语句句柄(Statement Handle)$sth。最后执行这条语句。