Linux下如何用Nginx作Perl程序服務器及其中Perl模塊

#?yum?install?perl

#?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

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; ??} }

$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

#!/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?"fakeexitnrc=".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; } ? sub?main?{ ??$socket?=?fcgi::opensocket(?"127.0.0.1:8999",?10?);?#use?ip?sockets ??$request?=?fcgi::request(?*stdin,?*stdout,?*stderr,?%req_params,?$socket?); ??if?($request)?{?request_loop()}; ???fcgi::closesocket(?$socket?); } ? sub?request_loop?{ ??while(?$request->accept()?>=?0?)?{ ? ???#processing?any?stdin?input?from?webserver?(for?cgi-post?actions) ???$stdin_passthrough?=''; ???$req_len?=?0?+?$req_params{'content_length'}; ???if?(($req_params{'request_method'}?eq?'post')?&&?($req_len?!=?0)?){ ????my?$bytes_read?=?0; ????while?($bytes_read??0)?{ ???close(child_rd); ???print?parent_wr?$stdin_passthrough; ???close(parent_wr); ? ???while(my?$s?=?)?{?print?$s;?} ???close?kid_to_read; ???waitpid($pid,?0); ??}?else?{ ?????foreach?$key?(?keys?%req_params){ ??????$env{$key}?=?$req_params{$key}; ?????} ?????#?cd?to?the?script's?local?directory ?????if?($req_params{script_filename}?=~?/^(.*)/[^/]+$/)?{ ???????chdir?$1; ?????} ? ???close(parent_wr); ???close(stdin); ???#fcntl(child_rd,?f_dupfd,?0); ???syscall(&sys_dup2,?fileno(child_rd),?0); ???#open(stdin,?"
3.2 fastcgi自啟動服務腳本：
 
文件路徑：/etc/rc.d/init.d/perl-fastcgi
 
文件路徑：/etc/rc.d/init.d/perl-fastcgi
?
 
#!/bin/sh # #?nginx?–?this?script?starts?and?stops?the?nginx?daemon # #?chkconfig:?-?85?15 #?description:?nginx?is?an?http(s)?server,?http(s)?reverse? #?proxy?and?imap/pop3?proxy?server #?processname:?nginx #?config:?/opt/nginx/conf/nginx.conf #?pidfile:?/opt/nginx/logs/nginx.pid ? #?source?function?library. .?/etc/rc.d/init.d/functions ? #?source?networking?configuration. .?/etc/sysconfig/network ? #?check?that?networking?is?up. [?"$networking"?=?"no"?]?&&?exit?0 ? perlfastcgi="/usr/bin/fastcgi-wrapper.pl" prog=$(basename?perl) ? lockfile=/var/lock/subsys/perl-fastcgi ? start()?{ ?[?-x?$perlfastcgi?]?||?exit?5 ?echo?-n?$"starting?$prog:?" ?daemon?$perlfastcgi ?retval=$? ?echo ?[?$retval?-eq?0?]?&&?touch?$lockfile ?return?$retval } ? stop()?{ ?echo?-n?$"stopping?$prog:?" ?killproc?$prog?-quit ?retval=$? ?echo ?[?$retval?-eq?0?]?&&?rm?-f?$lockfile ?return?$retval } ? restart()?{ ?stop ?start } ? reload()?{ ?echo?-n?$”reloading?$prog:?” ?killproc?$nginx?-hup ?retval=$? ?echo } ? force_reload()?{ ?restart } rh_status()?{ ?status?$prog } ? rh_status_q()?{ ?rh_status?>/dev/null?2>&1 } ? case?"$1"?in ?start) ??rh_status_q?&&?exit?0 ??$1 ??;; ?stop) ??rh_status_q?||?exit?0 ??$1 ??;; ?restart) ??$1 ??;; ?reload) ??rh_status_q?||?exit?7 ??$1 ??;; ?force-reload) ??force_reload ??;; ?status) ??rh_status ??;; ?condrestart|try-restart) ??rh_status_q?||?exit?0 ??;; ?*) ??echo?$"usage:?$0?{start|stop|status|restart|condrestart|try-restart|reload|force-reload}" ??exit?2 ?esac

#?chmod?a+x?/usr/bin/fastcgi-wrapper.pl #?chmod?a+x?/etc/rc.d/init.d/perl-fastcgi

#?/usr/local/nginx-1.4.2/sbin/nginx #?/etc/init.d/perl-fastcgi?start

#!/usr/bin/perl ? print?"content-type:text/htmlnn"; print?<title>perl?environment?variables</title><h1>perl?environment?variables</h1> endofhtml ? foreach?$key?(sort(keys?%env))?{ ?print?"$key?=?$env{$key}<br>n"; } ? print?"