lighttpd下开发Perl FastCGI程序

福瑞哈哥

在lighttpd配置文件中打开mod_fastcgi模块，并配置需要使用FastCGI的url范围，如下：

fastcgi.server = ( "/app" => ((                                                                 "socket" => "/tmp/fcgiapp.socket",                                                                 "check-local" => "disable",                                                            )))

其中"/app"指定以/app开头的url都使用下面指定的FastCGI分发器。也可以指定以什么结尾的，或者更复杂的模式。
"socket"指定lighttpd与FastCGI server通讯的unix socket路径，"check-local" => "disable"告诉lighttpd将匹配url直接发送到FastCGI server处理。

下面是分发器代码fcgi_dispatcher：

#!/usr/bin/perl use strict; use warnings; use CGI::Fast; use FCGI::ProcManager qw(pm_manage                          pm_pre_dispatch                          pm_post_dispatch); chmod 0777, $ENV{FCGI_SOCKET_PATH}; my $n_processes = $ENV{FCGI_NPROCESSES} || 4; pm_manage( n_processes => $n_processes ); while ( new CGI::Fast ) {     pm_pre_dispatch; # do whatever you want to do here...     print "Content-Type: text/html\r\n\r\n";     print "$$";     pm_post_dispatch; }

注意在启动前需要设置FCGI_SOCKET_PATH环境变量，使之指向lighttpd配置文件中的unix socket路径，例如：

export FCGI_SOCKET_PATH="/tmp/fcgiapp.socket" ./fcgi_dispatcher &

这样，一个Perl FastCGI服务器程序就搭建起来了。如果需要，可以设置FCGI_NPROCESSES环境变量来指定并发进程数量。
可以在while循环中把URL对应到一个具体的对象方法中去，以后有时间我会继续发帖来更新这个分发器。