<b>利用Perl语言去存取mSQL和MySQL数据库的内容</b>[MySQL防范]

为了利用Perl语言去存取mSQL和MySQL数据库的内容,必须安装一些API模块,以下列出一些必须安装的模块名称阐明和其下载网址:i) 通例安装必须的模块:DBI-1.13 Perl语言的数据库通用接口Data-ShowTable-3.3 Perl5的一个模块,定义了一系列的子例程,用来将数据输出显示为美好的四种格局:简单表格、盒包装表格、列表款式和HTML格局.

Msql-Mysql-modules-1.2209 包含了两个数据库驱动:DBD::mSQL和DBD::mysql,也就是mSQL和MySQL对Perl语言数据库通用接口的驱动程序,具体地说是实现对mSQL和MySQL数据库存取的DBD(数据库驱动程序)http://www.mysql.com/downloads/api-dbi.html ii) 为了在利用Perl语言的数据库通用接口的时刻可以利用Perl语言的数据库通用接口自带的DBD::Proxy驱动和DBD::ProxyServer模块,必必要安装以下的模块:Net-Daemon-0.31 是一个为轻松实现便携式服务器利用程序而供应的一个抽象的基簿子类,它供应了实现一个后台保护程序(Daemon) 普通任务的办法:启动、登录、衔接客户端、认证、为安全设置环境变量和进入工作状况.

Storable-0.6.11 使得数据存储越发持续和安定.你可以用递归的办法向磁盘存储任何的数据构造,同时也可以从存储文件中取出数据并且在内存中重建一样的构造.PlRPC-0.2012 RPC::PlServer——为实现PlRPC而供应的Perl语言扩大.它是一个用于服务器端的包,它和RPC::client一同通过同享包RPC::Comm的方法来通讯.PlRPC通过定义一系列可以被客户端履行的办法(methods) 来用Perl语言实现RPC(远程历程调用) . http://www.perl.com/CPAN-local/modules/

2) 安装历程:

下载以上说起的模块安装文件(文件名均为模块名后接.tar.gz) ,最好保存在目录:/usr/local/src下,并解压:tar zxvf *****.tar.gz (*****表示模块名) .这将产生各模块的安装文件目录.

i) 按照以下列出的从左到右的先后次序安装,使得系统支持利用DBD::Proxy驱动和DBD::ProxyServer模块.Net-Daemon-0.31——Storable-0.6.11——PlRPC-0.2012利用尺度的CPAN模块安装历程:perl Makefile.PL——make——make test——make install

ii) 通例安装部份:按照以下列出的从左到右的先后次序安装:DBI-1.13——Data-ShowTable-3.3——Msql-Mysql-modules-1.2209对DBI-1.13模块和Msql-Mysql-modules-1.2209模块的安装利用尺度的CPAN模块安装历程:perl Makefile.PL——make——make test——make install对Data-ShowTable-3.3模块的安装要特别处理一下:a) 此模块带的测试套件有错误,顾省略make test这一历程.即安装历程为:perl Makefile.PL——make——make install b) 在完成perl Makefile.PL这一步后,编辑ShowTable.pm文件,找到"=head1" 相关段,增添一行:" =head1 SYNOPSIS " ,保存退出.接着完成make和make file历程.

3) 测试:利用MySQL数据库(利用mSQL也可以)成立一个数据库:abacus,写一个简单的perl程序:perlmysql.cgi,从一个数据库abacus中读出全部的表名并且显示.

#!/usr/bin/perl

use DBI;print "Content-type: text/htmlnn";print "n";$driver="mysql";$dbh=DBI->connect("DBI:mysql:abacus:mysql.szabacus.com","root","abcde")||die "can not connect database";$sth=$dbh->prepare("show tables")||die "occur an error when query database";$sth->execute();$numRows=$sth->rows;while(@row=$sth->fetchrow_array){ print "Table: $row[0]n";} print "query lines=$numRowsn";$sth->finish();$dbh->disconnect();exit;

将此程序存入系统的CGI目录中,同时履行:chmod 755 perlmysql.cgi ,然后在号令行下履行:perl perlmysql.cgi ,在正常安装的情形下将可以看到数据库abacus中的全部表名显示出来.也可以在IE里利用url看后果. 　　以上是“<b>利用Perl语言去存取mSQL和MySQL数据库的内容</b>[MySQL防范]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：