基本的Perl DBI例子

基本的Perl DBI例子 [DBI]

#!/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。最后执行这条语句。