建立数据库 首先你应当已经正确安装了MySQL，并配置好用户密码。关于安装并不是本文讨论的内容 ，MySQL自带的大量文档已经描述了所有细节。 用mysql.server启动MySQL服务器,这个命令同时调用 safe_mysqld 守护进程，因此你可 用 mysql -h host -u user -p 连接到服务器，如果服务器就装在你本机上，就不用加参数-h host。 输入密码无误后，你将连接到服务器。现在可以建立自己的数据库了。 在mysql命令提示符状态下输入 CREATE DATABASE lf; ，这个是我们的示范数据库(lf代表LinuxFocus)，你可以根据你的需要命名成别的。接下 来就是给用户授权了，当然首先你要有足够的权限（你需要用有administrator权限的用户连 GRANT ALL ON lf.* TO username; 给他授权。输入 USE lf 选择刚才创建的数据库，并创建一张表。在这里我们创建的表是trissue,命令格式为： CREATE TABLE trissue (num INTEGER UNSIGNED, category VARCHAR(25), title VARCHAR(40), author VARCHAR(20), en VARCHAR(20), es VARCHAR(20), fr VARCHAR(20),de VARCHAR(20), nl VARCHAR(20), ru VARCHAR(20), tk VARCHAR(20), issue 通过下面的命令可以检查一下我们刚才创建的表内容是否正确 USE lf SHOW TABLES; DESCRIBE trissue; 下面我们需要在表中填入数据，往一张空表中导入数据的最简单的方法就是使用一个带 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 < Content-type: text/html
