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

;";
print " ";

} else {

# DB Connect

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

# Search

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

$sth->execute;

# Display result

print <<SUITE;

<center>
<TABLE BORDER=>
<tr bgcolor=#A1C4EE>
<th width=60 align=CENTER> Num </th>
<th width=110 align=CENTER> Category </th>
<th width=110 align=CENTER> Title </th>
<th width=110 align=CENTER> Author </th>
<th width=110 align=CENTER> En </th>
<th width=110 align=CENTER> Es </th>
<th width=110 align=CENTER> Fr </th>
<th width=110 align=CENTER> De </th>
<th width=110 align=CENTER><font color=#000000&g

MySQL & Perl, 便利之合(八)