基于Web的DBI开发

在使用数据库数据时，经常需要使用多条SQL语句才能得到相应的数据，无法在一条语句实现 或者实现起来非常复杂，而且直接在用SQL语句获取的数据可读性也比较差 。我们可以通过脚本语言结合web开发来查询和呈现数据。

以perl（本人比较熟悉perl）为例， 用perl 来写CGI脚本查询数据库并把数据呈现在网页上。

准备工作，确保Linux服务器上安装了DBD::mysql 和 CGI Perl 模块

1. perl DBI

连接参数变量

my $dsn="DBI:mysql:prictice";
my $user="root";
my $password="";
my %conn_attr=(RaiseError => 1, PrintError => 0, AutoCommit => 1);

my $dbh = DBI->connect ($dsn,$user,$password,\%conn_attr);

重点介绍一下 %conn_attr


RaisError:当某个DBI方法里出现错误时， DBI就会发出异常消息，默认时它会调用die（）来显示错误并退出
PrintError: 当某个DBI方法里出现错误时, DBI就会调用warn()来显示错误信息但不会退出
AutoCommit: 脚本会在自动提交模式下进行事务处理

DBI->connect() 连接数据库并且返回数据库对象的句柄。

查询数据库：

my $sth = $dbh->prepare("select last_name,first_name,"
          ."city,state,street,email from member ORDER by last_name")
          or die "cannot connect to database";

$sth->execute();

获取查询的数据：

while(my @ary = $sth->fetchrow_array())
{
    my $delin = "";
    for ( my $i =0; $i < @ary; $i++)
    {
        $ary[$i] = "NULL" if !defined ($ary[$i]);
        print $delin, $ary[$i];
                $delin = "\t";
    }
        print "\n";
}

逐行获取查询的数据。

用来取回数据行的DBI方法，除了上边的fetchrow_array(), 还有3中方法

fetchrow_array() 元素是数据行的值得数值

fetchrow_arrayref() 对于数据行的值构成的数组的yinyong

fetch() 与fetchrow_arrayref() 相同

fetchrow_hashref() 对由数据行的值构成的数组的引用，键是数据列的名字

获取晚数据后，释放掉SQL句柄和数据库句柄

$sth->finish();
$dbh->disconnect() or die"cannot disconnect from database";

2.  Perl Web 开发

首先在脚本里面使用 CGI 模块

use CGI qw(:standard);

在CGI模块里面有相应的函数帮我打印出http的开头部分，不用我们自己来写开头部分。

print header();
print start_html(-title=>"member", -bgcolor=> "white");

上面我们从数据库里面获取的数据在网页中以表的形式呈现出来，对获取数据部分进行了修改，加入了html表格的信息。

while(my @ary = $sth->fetchrow_array())
{
    @cell=();
    my $delin = "";
    for ( my $i =0; $i < @ary; $i++)
    {
        $ary[$i] = "NULL" if !defined ($ary[$i]);
        push (@cell, td($ary[$i]));

    }
        push (@row, Tr(@cell));
}

3. 全部代码

下面是全部的代码，将脚本放到cgi-bin目录下面。就可以通过网页看到我们查询的数据。

#!/usr/bin/perl -w
#
use strict;
use diagnostics;
use DBI;
use CGI qw(:standard);

my $dsn="DBI:mysql:prictice";
my $user="root";
my $password="";
my %conn_attr=(RaiseError => 1, PrintError => 0, AutoCommit => 1);
my @cell;
my @row;

print header();
print start_html(-title=>"member", -bgcolor=> "white");

my $dbh = DBI->connect ($dsn,$user,$password,\%conn_attr);

my $sth = $dbh->prepare("select last_name,first_name,"
          ."city,state,street,email from member ORDER by last_name")
          or die "cannot connect to database";

$sth->execute();

my @title=("last_name","first_name","city","state","street","email");
foreach my $t (@title)
{
    push (@cell, th($t));
}
push (@row, Tr(@cell));
while(my @ary = $sth->fetchrow_array())
{
    @cell=();
    my $delin = "";
    for ( my $i =0; $i < @ary; $i++)
    {
        $ary[$i] = "NULL" if !defined ($ary[$i]);
        push (@cell, td($ary[$i]));

    }
        push (@row, Tr(@cell));
}
!DBI::err
    or die "Error during retreive";

$sth->finish();
$dbh->disconnect() or die"cannot disconnect from database";
print table({-border => "1"}, @row);

print end_html();