ARCHAR(20), nl VARCHAR(20), ru VARCHAR(20), tk VARCHAR(20),
issue VARCHAR(20)); 通过下面的命令可以检查一下我们刚才创建的表内容是否正确
USE lf
SHOW TABLES;
DESCRIBE trissue;
下面我们需要在表中填入数据,往一张空表中导入数据的最简单的方法就是使用一个带TAB分隔符的文本文件。如果文本文件已经准备好,输入
LOAD DATA LOCAL INFILE "maindb.txt" INTO TABLE trissue;
如果你的文本文件没有问题,那么现在这张表就已经填好数据,你可以通过输入以下命令检验一下:
SELECT * FROM trissue;
这将导致显示一个很长的列表。现在,你就可以进行查询来获得任何类型的数据了。
ok,到现在为止,我们仅仅用了MySQL,就可以做任何事情,那么,用Perl来做什么?
Perl的工作
Perl可以帮助我们自动进行查询,将结果显示到一个WEB浏览器上,等等。重复一遍,首先需要为Perl安装正确的模块使之能与MYSQL联合工作。
现在我们用Perl来写一个CGI脚本。它的作用是将Perl与HTML技术结合以实现查询数据库并将结果格式化输出。
我们用一个简单的脚本来查询某一作者的所有文章,显示文章的编号,分类,标题,不同语言版本的翻译者的姓名,发表文章的杂志期号。
你可以将这个脚本当作一个模块使用,但是注意这个例程并不是一个非常可靠的程序。你可以从下面的链接下载到一个有详细注释的版本。=>here<=.
#!/usr/bin/perl -Tw
# First, we say this is a "Tainted" Perl
script.
#
# This is a comment
# db consult
#
# We use the
Perl DBI module
use DBI;
# As cgi :
use CGI qw(param());
print <<END_of_start;
Content-type: text/html
<html>
<title>LFAuthors main db</title>
<center><TABLE>
<TR VALIGN=TOP>
<TD>