Ubuntu Server最佳方案——LAMP服务器之Perl篇

czhtr

5.1           file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image001.gif安装Perl模块
　　安装完后，apache的perl模块就安装好了
　　$ sudo apt-get install libapache2-mod-perl2
5.2           file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image002.gif配置cgi-bin目录
　　Perl的网页程序一般都是以CGI的模式来运行，创建cgi-bin目录，并修改虚拟主机的配置
　　ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/
　　
　　AllowOverride None
　　Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch
　　Order allow,deny
　　Allow from all
　　
5.3           file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image003.gifPerl程序测试
　　创建test目录并创建测试页面
　　$ sudo mkdir /usr/lib/cgi-bin/test
　　$ sudo nano /usr/lib/cgi-bin/test/test.pl
　　测试页面的内容
　　#!/usr/bin/perl -w
　　
　　print "Content-type: text/html\n\n";
　　print "Hello, World.";
　　给与执行权限
　　$ sudo chmod a+x /usr/lib/cgi-bin/test/test.pl
　　打开浏览器即可进行测试
5.4           file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image004.gif用Perl访问MySQL数据库
　　创建连接数据库的测试页面dbtest.pl
　　#!/usr/bin/perl
　　
　　use DBI;
　　
　　# 连接数据库
　　my $dbh = DBI->connect("DBI:mysql:database=mydb;host=localhost","username","passw ord", {'RaiseError' => 1});
　　
　　# 查询
　　my $sqr = $dbh->prepare("SELECT name, mail FROM users");
　　$sqr->execute();
　　
　　# 打印结果
　　while(my $ref = $sqr->fetchrow_hashref()) {
　　print "$ref->{'name'}, $ref->{'mail'}\n";
　　}
　　
　　# 关闭数据库连接
　　$dbh->disconnect();
　　在命令行进行测试
　　$ perl /var/www/dbtest.pl
　　Hiweed, hiweed@test.com
　　Ning, ning@test.com
　　Guoce, guoce@test.com
　　复制到网站目录进行测试
　　$ sudo cp /var/www/dbtest.pl /usr/lib/cgi-bin/test/
　　浏览器报告500的错误，是因为脚本不符合CGI规范，在脚本的print语句钱加上下面一行，使符合规范
　　print "Content-type: text/html\n\n";
　　修改后的脚本如下
　　#!/usr/bin/perl
　　
　　use DBI;
　　
　　my $dbh = DBI->connect("DBI:mysql:database=mydb;host=localhost","username", "passw ord", {'RaiseError' => 1});
　　
　　my $sqr = $dbh->prepare("SELECT name, mail FROM users");
　　$sqr->execute();
　　
　　print "Content-type:text/html\n\n";
　　
　　while(my $ref = $sqr->fetchrow_hashref()) {
　　print "$ref->{'name'}, $ref->{'mail'}\n\n";
　　}
　　
　　$dbh->disconnect();
　　给与执行权限
　　$ sudo chmod 755 /usr/lib/cgi-bin/test/dbtest.pl
file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image005.gif5.6  实例：用Twiki假设Wiki
5.6.1  安装Twiki
　　Twiki是一个用perl编辑的Wiki软件，十分灵活。
　　安装
　　$ sudo apt-get install twiki
　　安装完后，直接访问http://192.168.1.10/cgi-bin/twiki/就可以
5.6.2          配置Twiki
　　如果访问http://192.168.1.10/cgi-bin/twiki/跳转到http://localhost/cgi-bin/twiki/，则需要修改配置文件。twiki的配置文件在/etc/twiki目录下，修改/etc/twiki/apache.conf文件中设置的RedirectMatch如下
　　RedirectMatch /twiki/?$ http://localhost/cgi-bin/twiki/view$1
　　RedirectMatch /twiki(/([A-Z].*)?)?$ http://localhost/cgi-bin/twiki/view$1
/etc/twiki/LocalSite.cfg配置文件也很重要，是twiki的主要配置文件，里面包括了数据目录、网站语言、登陆认证等方面的设置
　　文章整理来自于《Ubuntu Server最佳方案》书籍
　　由于字数限制，笔记可能无法全部上传，请下载笔记