linux 添加perl lib路径,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://www.cpan.org/modules/by-module/FCGI/

1.1 nginx安装这里就不再详细介绍了~

1.2 perl安装一般linux都有自带perl，可以不用安装，如果确实没有，请执行：

# yum install perl

1.3 perl-fastcgi安装

# cd /usr/local/src

# wget http://www.cpan.org/modules/by-module/FCGI/FCGI-0.74.tar.gz

# tar -xzvf FCGI-0.74.tar.gz

# cd FCGI-0.74

# perl Makefile.PL

# make

# make install

2. nginx虚拟主机配置

server {

listen 80;

server_name test.jb51.net;

#access_log /data/logs/nginx/test.jb51.net.access.log main;

index index.html index.php index.html;

root /data/site/test.jb51.net;

location /

{

}

location ~ \.pl$

{

include fastcgi_params;

fastcgi_pass 127.0.0.1:8999;

#fastcgi_pass unix:/var/run/jb51.net.perl.sock;

fastcgi_index index.pl;

}

}

如果想把tcp/ip方式改为socket方式，可以修改fastcgi-wrapper.pl.

$socket = FCGI::OpenSocket( "127.0.0.1:8999", 10 ); #use IP sockets

改为

$socket = FCGI::OpenSocket( "/var/run/jb51.net.perl.sock", 10 ); #use IP sockets

3. 配置脚本

3.1 fastcgi监听脚本文件路径：/usr/bin/fastcgi-wrapper.pl

#!/usr/bin/perl

use FCGI;

use Socket;

use POSIX qw(setsid);

require 'syscall.ph';

&daemonize;

#this keeps the program alive or something after exec'ing perl scripts

END() { } BEGIN() { }

*CORE::GLOBAL::exit = sub { die "fakeexit\nrc=".shift()."\n"; };

eval q{exit};

if ($@) {

exit unless $@ =~ /^fakeexit/;

};

&main;

sub daemonize() {

chdir '/' or die "Can't chdir to /: $!";

defined(my $pid = fork) or die "Can't fork: $!";

exit if $pid;

setsid or die "Can't start a new session: $!";

umask 0;

}