MySQL & Perl, 便利之合 - 数据库编程

;<form action="/cgi-bin/lf.cgi" method="get">

# Here comes the button's title for the launching page
<input type="submit" value=" LFAuth ">
</form>
</TD>
</TR>
</TABLE>

下面用脚本去查询数据库。

<center><H2>Search by author</H2></center>

<form action="/cgi-bin/lf.cgi" method="get">Author name : <input
type="text" size="30" name="author"><input type="submit"
value="Search..."></form></center>

END_of_start

if (param("author") ne '') {
$author = param("author");

$autsrch.='"';

$autsrch.=$author;
$autsrch.='"';

# We connect to the database named lf as user doe

$dbh = DBI->connect("DBI:mysql:lf","doe",'');

$sth = $dbh->prepare("
select *
from trissue
where
author = $autsrch
");

$sth->execute;

接着用脚本去显示查询结果。如果我们不限制查询条件，将会显示出数据库的所有内容，如果我们提供一个作者姓名，则会显示出与该作者相关的所有文章。当你的数据库有上千条记录时，不推荐显示出所有内容！

print <<END_suite;

<center>
<TABLE BORDER=>
<tr bgcolor=#A1C4EE>
<th width=60 align=CENTER><font color=#000000> Num </font></th>

MySQL & Perl, 便利之合(四)