) 知识准备
为了使用Perl语言去存取mSQL和MySQL数据库的内容必须安装一些API模块以下列出一些必须安装的模块名称说明和其下载网址i) 常规安装必须的模块DBI Perl语言的数据库通用接口DataShowTable Perl的一个模块定义了一系列的子例程用来将数据输出显示为美观的四种格式简单表格盒包装表格列表样式和HTML格式
MsqlMysqlmodules 包含了两个数据库驱动DBDmSQL和DBDmysql也就是mSQL和MySQL对Perl语言数据库通用接口的驱动程序具体地说是实现对mSQL和MySQL数据库存取的DBD(数据库驱动程序) ii) 为了在使用Perl语言的数据库通用接口的时候可以使用Perl语言的数据库通用接口自带的DBDProxy驱动和DBDProxyServer模块必须要安装以下的模块NetDaemon 是一个为轻松实现便携式服务器应用程序而提供的一个抽象的基本子类它提供了实现一个后台守护程序(Daemon) 通常任务的方法启动登录连接客户端认证为安全设置环境变量和进入工作状态
Storable 使得数据存储更加连续和稳定你可以用递归的办法向磁盘存储任何的数据结构同时也可以从存储文件中取出数据并且在内存中重建同样的结构PlRPC RPCPlServer——为实现PlRPC而提供的Perl语言扩展它是一个用于服务器端的包它和RPCclient一起通过共享包RPCComm的方式来通讯PlRPC通过定义一系列可以被客户端执行的方法(methods) 来用Perl语言实现RPC(远程过程调用) local/modules/
) 安装过程
下载以上提及的模块安装文件(文件名均为模块名后接targz) 最好保存在目录/usr/local/src下并解压tar zxvf *****targz (*****表示模块名) 这将产生各模块的安装文件目录
i) 按照以下列出的从左到右的先后顺序安装使得系统支持使用DBDProxy驱动和DBDProxyServer模块NetDaemon——Storable——PlRPC使用标准的CPAN模块安装过程perl MakefilePL——make——make test——make install
ii) 常规安装部份按照以下列出的从左到右的先后顺序安装DBI——DataShowTable——MsqlMysqlmodules对DBI模块和MsqlMysqlmodules模块的安装使用标准的CPAN模块安装过程perl MakefilePL——make——make test——make install对DataShowTable模块的安装要特殊处理一下a) 此模块带的测试套件有错误顾省略make test这一过程即安装过程为perl MakefilePL——make——make install b) 在完成perl MakefilePL这一步后编辑ShowTablepm文件找到=head 相关段增加一行 =head SYNOPSIS 保存退出接着完成make和make file过程
) 测试使用MySQL数据库(使用mSQL也可以)建立一个数据库abacus写一个简单的perl程序perlmysqlcgi从一个数据库abacus中读出所有的表名并且显示
#!/usr/bin/perl
use DBIprint Contenttype text/htmlnnprint n$driver=mysql$dbh=DBI>connect(DBImysqlabacusrootabcde)||die can not connect database$sth=$dbh>prepare(show tables)||die occur an error when query database$sth>execute()$numRows=$sth>rowswhile(@row=$sth>fetchrow_array){ print Table $row[]n} print query lines=$numRowsn$sth>finish()$dbh>disconnect()exit
将此程序存入系统的CGI目录中同时执行chmod perlmysqlcgi 然后在命令行下执行perl perlmysqlcgi 在正常安装的情况下将可以看到数据库abacus中的所有表名显示出来也可以在IE里使用url看结果