Perl使用nginx FastCGI环境做WEB开发实例
Hello World
#!/usr/bin/env perl
use strict;
use warnings;
use CGI::Fast;
while(my $q = new CGI::Fast)
{
print $q->header("text/plain");
print "Hello World";
}
和CGI的区别仅在于多了一个循环来接受请求，CGI::Fast对象和CGI接口是一样的，而且该脚本也可以当做CGI脚本使用。
搭建nginx + FastCGI 环境
Perl使用CGI::Fast包来提供FastCGI服务，该包提供两种方式来启动FastCGI进程，一个是直接使用该包提供的服务将当前进程变为FastCGI进程，另外一个是使用第三方工具spawn-fcgi来启动。
nginx配置方式例子：
代码如下:
location / {
fastcgi_pass 127.0.0.1:8184;
fastcgi_param SCRIPT_FILENAME /scripts$fastcgi_script_name;
include fastcgi_params;
}
配置好nginx后，使用spawn-fcgi来启动前面的Hello World：
代码如下:
$ spawn-fcgi -n -a 127.0.0.1 -p 8184 -f ./main.pl
调试支持
在前面的命令行里使用了参数-n，让spawn-fcgi不要fork出多个进程，并阻塞，允许用户Ctrl+C来关闭，产品服务器可以去掉这个参数来充分利用服务器的多核来提供更高的并发数。我之前写了一个bash脚本，允许在文件改动的情况下重启服务，方便调试perl程序，代码如下：
代码如下:
#!/bin/bash
#PID文件和需要启动的脚本
PID_FILE=service.pid
MAIN=main.pl
#关闭之前启动的进程
term() {
test -e $PID_FILE || return
pid=`cat $PID_FILE`
kill -s -0 $pid || return
echo "Terminating $MAIN $pid"
rm -f $PID_FILE
kill $pid
wait $pid
}
#当前脚本退出的时候也关闭启动了的FastCGI进程
trap "term;exit" SIGINT SIGTERM
while true
do
#首次启动或者文件改动后都需要关闭之前的进程
term
#以no fork方式启动脚本来调试，并将PID写入到文件
spawn-fcgi -n -a 127.0.0.1 -p 8184 -f ./$MAIN &
pid=$!
echo $pid > $PID_FILE
echo "My Perl service started, pid = $pid"
#监控文件变化
files=`find . -name '*.pl' -o -name '*.pm' -o -name '*.html'`
md5=`md5sum $files|md5sum`
#wait for file change
while [[ `md5sum $files|md5sum` = "$md5" ]]
do
sleep 1
done
echo "File changes detected, restarting service"
done
该脚本已在Mac OSX和Linux下测试通过
路由系统
做Web开发离不开路由实现，来对不同请求来做出特定的响应。
路由请求依赖HTTP Method和URI两部分，因此主要就是需要这两者来做分派。
在CGI中可以通过环境变量REQUEST_METHOD和REQUEST_URI来获取请求方法和URI。
因此一个简单的路由系统实际上可以分解为一个二级的map，注册路由实际上就是往这个map里放入规则对应的处理函数，而分派请求则是从这个map里根据规则获取对应的处理函数，一个简单的例子：
代码如下:
my %routers = ();
sub not_found
{
print "Status: 404\n";
print "Content-Type: text/html\n\n";
print<<EOF
<html>
<body>
<h1>404 Not found</h1>
Cannot find $ENV{REQUEST_PATH}.
</body>
</html>
EOF
}
sub add_rule
{
my ($method, $path, $callback) = @_;
my $handlers = $routers{$method};
$handlers = $routers{$method} = {} if not $handlers;
$handlers->{$path} = $callback;
}
sub dispatch
{
my $q = shift;
my $method = $ENV{REQUEST_METHOD};
my $uri = $ENV{REQUEST_URI};
$uri =~ s/\?.*$//;
my $handler = ($routers{$method} || {})->{$uri} || not_found;
eval
{
&$handler($q);
};
print STDERR "Failed to handle $method $uri: $@\n" if $@;
}
sub index
{
my ($q) = @_;
print $q->header('text/plain');
print "Hello World!";
}
router::add_rule('GET', '/', \&index);
模板系统
perl提供了大量的模板系统的实现，我个人最喜欢的是Template Toolkit，文档也非常丰富，网站是 http://www.template-toolkit.org/ 。
use Template;
my $tt = new Template({INCLUDE_PATH => 'templates', INTERPOLATE => 1});
sub index
{
my ($q) = @_;
my $output = '';
print $q->header('text/html');
$tt->process('index.html', {world => 'World'}, $output) || die $tt->error();
print $output;
}
其中templates/index.html文件内容如下：
代码如下:
<html>
<head><title>Demo</title></head>
<body>
Hello ${world}
</body>
</html>
完！
相关推荐
-
Linux下用Nginx作Perl程序服务器及其中Perl模块的配置
perl + fastcgi + nginx搭建 nginx + fastcgi是php下最流行的一套环境了,那perl会不会也有fastcgi呢,当然有,今天来搭建下nginx下perl的fastcgi.性能方面也不亚于php,但是现在web程序php的流行程度perl无法比拟了,性能再好也枉然,但是部分小功能可以考虑使用perl的fastcgi来搞定.进入正题. 1. 准备软件环境: nginx:http://www.nginx.org perl:系统自带 fastcgi:http://ww
-
Perl使用nginx FastCGI环境做WEB开发实例
Hello World 一个简单的hello world例子: 复制代码 代码如下: #!/usr/bin/env perluse strict;use warnings;use CGI::Fast;while(my $q = new CGI::Fast){ print $q->header("text/plain"); print "Hello World";} 和CGI的区别仅在于多了一个循环来接受请求,CGI::Fast对象和CGI接口是一样的,而且该脚
-
做web开发 先学JavaScript
有一天我被问到,为了快速地在 web 开发工作上增加优势,应该学习什么语言.我的思绪回到了大学,那时候我用 Pascal.Fortran.C和汇编语言,不过那个时候有不同的目标. 想做web开发,就学JavaScript 鉴于当前的状况和趋势,答案相对容易给出来:学习 JavaScript.四周看看,曾经低端的浏览器脚本语言现在变得随处可见,从服务器端到客户端,每天好像有更多的选择. 出身低微 我记得数年前投入 web 开发,学习了 HTML.用 Perl 开发 CGI 脚本.Netscape
-
使用TinyButStrong模板引擎来做WEB开发
使用TinyButStrong模板引擎来做WEB开发 /google 的广告条--> TinyButStrong是应用于4.0.6及以上PHP版本的专业和易用的模板引擎! TinyButStrong 简称TBS,中译为"小强",它是一个PHP类.仅仅包含8个方法3个特性.文件大小100K左右,却能实现超大型模板引擎同样的功能.支持WYSIWYG编写html模板(Dreamweaver .FrontPage等)非常直观方便. 本文将介绍TBS的初步用法.TinyButStrong手
-
Python用来做Web开发的优势有哪些
Python是世界上最受欢迎的编码语言之一,在80年代后期首次受到ABC和Modula-3语言的影响而被概念化.从1991年的第一个版本到成为开源项目的2.0版本,它已经走了很长一段路,直到今天,它正在聚集一个庞大且专业的社区,该社区正在不断改进技术. 目前而言一些顶级公司在其技术堆栈中使用Python(例如Instagram) Facebook旗下的一个图片社交网站 Python适合从简单到复杂的各种Web项目.它广泛用于旅行,医疗保健,交通运输,金融等不同领域,用于Web开发和软件测试,脚本
-
python Django的web开发实例（入门）
一.创建一个项目 如果这是你第一次使用Django,那么你必须进行一些初始设置.也就是通过自动生成代码来建立一个Django项目--一个Django项目的设置集,包含了数据库配置.Django详细选项设置和应用 特性配置,具体操作步骤如下所示. 1.新建Django项目 选择sqlite数据库 2.创建网站模块app 3.测试新建的模块是否正常 Validating models... 0 errors found March 12, 2014 - 10:26:53 Django version
-
node.js WEB开发中图片验证码的实现方法
用node做web开发很多都可能碰到需要验证码的地方,之前在github上搜索,有一些比如node-captcha等的类库,都需要依赖第三方的图形处理库或者软件,像我之前安装cario这个图形库时,真是费了好大一番劲,但是其实我们只用到了这些图形库的一点点小功能,比如图片的尺寸修改裁剪,或者生产验证码. 先介绍一下CImg这个c++的图形库吧,CImg是一个跨平台的C++的图像处理库,提供了加载.处理.显示.保存等一系列功能,最吸引人的地方是整个图形库就一个CImg.h这个文件,所以非常的便携绿
-
详解ObjectARX开发环境的创建与开发实例Hello World(VS2005+AutoCad2008+ObjectArx2008)
在一个做CAD二次开发的公司做Web开发,感觉可提升的空间很小. 有必要研究一下公司的产品开发,以利发展. 一.首先安装好vs05与cad2008 安装cad的时候也没有什么特别,加载到虚拟光驱,安装过程中有个错误提示,不影响继续. 二.安装ObjectArx2008直接打开解压缩到某个目录即可. 比如C:\ObjectARX 2008 然后打开C:\ObjectARX 2008\utils\ObjARXWiz目录,运行ArxWizards.msi 这样在新建C++项目的时候会出现ObjectA
-
解决Golang在Web开发时前端莫名出现的空白换行
问题: 在使用Golang做Web开发时,有时候渲染出来的模板在前台显示时会出现一些奇怪的空白换行,具体特征就是查看css样式表并没有相关定义的空白部分. 分析: 查看出现问题页面的网页源代码,复制空白换行部分转码为Unicode编码,发现其中包含了\u2028这样的字符[图一]. [图一] 另外,直接在浏览器检查里边的html选择Edit as html,也可发现在空白处存在小红点,鼠标移上会直接显示该字符是\u2028[图二].查阅资料发现,这样的换行符在JavaScript中并不支持.
-
Python Web开发模板引擎优缺点总结
做 Web 开发少不了要与模板引擎打交道.我陆续也接触了 Python 的不少模板引擎,感觉可以总结一下了. 一.首先按照我的熟悉程度列一下:pyTenjin:我在开发 Doodle 和 91 外教时使用.Tornado.template:我在开发知乎日报时使用.PyJade:我在开发知乎日报时接触过.Mako:我只在一个早期就夭折了的小项目里用过.Jinja2:我只拿它做过一些 demo. 其他就不提了,例如 Django 的模板,据说又慢又难用,我根本就没接触过. 二.再说性能 很多测试就是
-
搭建java WEB开发环境和应用
一 使用Tomcat服务器,使用DBCP数据源搭建Web开发环境 1.JDK安装,默认路径即可 2.Tomcat5.5服务器 1)配置Tomcat的服务器端口: 打开D:\apache-tomcat-5.0.18\conf\server.xml, 查看如下代码: <!-- Define a non-SSL Coyote HTTP/1.1 Connector on port 8080 --> <Connector port="8080" maxThreads="