一、安装perl库 perl-FCGI、perl-FCGI-ProcManager、perl-IO-ALL（如下文件均可以去http://search.cpan.org下载）

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

#tar zxvf FCGI-0.67.tar.gz

#cd FCGI-0.67

#perl Makefile.PL

#make && make install

#wget http://search.cpan.org/CPAN/authors/id/G/GB/GBJK/FCGI-ProcManager-0.18.tar.gz

#tar zxvf FCGI-ProcManager-0.18.tar.gz

#cd FCGI-ProcManager-0.18

#perl Makefile.PL

#make && make install

#wget http://search.cpan.org/CPAN/authors/id/I/IN/INGY/IO-All-0.39.tar.gz

#tar zxvf IO-All-0.39.tar.gz

#cd IO-All-0.39

#perl Makefile.PL

#make && make install

二、生成perl守护进程

#vi nginx-cgi.pl，然后加入如下内容

1. #!/usr/bin/perl
2. use FCGI;
3. use Socket;
4. use FCGI::ProcManager;
5. sub shutdown { FCGI::CloseSocket($socket); exit; }
6. sub restart  { FCGI::CloseSocket($socket); &main; }
7. use sigtrap ‘handler’, \&shutdown, ‘normal-signals’;
8. use sigtrap ‘handler’, \&restart,  ‘HUP’;
9. require ‘syscall.ph’;
10. use POSIX qw(setsid);
11. END()   { }
12. BEGIN() { }
13. {
14. no warnings;
15. *CORE::GLOBAL::exit = sub { die "fakeexit\nrc=" . shift() . "\n"; };
16. };
17. eval q{exit};
18. if ($@) {
19. exit unless $@ =~ /^fakeexit/;
20. }
21. &main;
22. sub daemonize() {
23. chdir ‘/’ or die "Can’t chdir to /: $!";
24. defined( my $pid = fork ) or die "Can’t fork: $!";
25. exit if $pid;
26. setsid() or die "Can’t start a new session: $!";
27. umask 0;
28. }
29. sub main {
30. $proc_manager = FCGI::ProcManager->new( {n_processes => 5} );
31. $socket = FCGI::OpenSocket( "127.0.0.1:8999", 10 )
32. ; #use UNIX sockets – user running this script must have w access to the ‘nginx’ folder!!
33. $request =
34. FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%req_params, $socket,
35. &FCGI::FAIL_ACCEPT_ON_INTR );
36. $proc_manager->pm_manage();
37. if ($request) { request_loop() }
38. FCGI::CloseSocket($socket);
39. }
40. sub request_loop {
41. while ( $request->Accept() >= 0 ) {
42. $proc_manager->pm_pre_dispatch();
43. #processing any STDIN input from WebServer (for CGI-POST actions)
44. $stdin_passthrough = ”;
45. { no warnings; $req_len = 0 + $req_params{‘CONTENT_LENGTH’}; };
46. if ( ( $req_params{‘REQUEST_METHOD’} eq ‘POST’ ) && ( $req_len != 0 ) ) {
47. my $bytes_read = 0;
48. while ( $bytes_read < $req_len ) {
49. my $data = ”;
50. my $bytes = read( STDIN, $data, ( $req_len – $bytes_read ) );
51. last if ( $bytes == 0 || !defined($bytes) );
52. $stdin_passthrough .= $data;
53. $bytes_read += $bytes;
54. }
55. }
56. #running the cgi app
57. if (
58. ( -x $req_params{SCRIPT_FILENAME} ) &&    #can I execute this?
59. ( -s $req_params{SCRIPT_FILENAME} ) &&    #Is this file empty?
60. ( -r $req_params{SCRIPT_FILENAME} )       #can I read this file?
61. ) {
62. pipe( CHILD_RD,   PARENT_WR );
63. pipe( PARENT_ERR, CHILD_ERR );
64. my $pid = open( CHILD_O, "-|" );
65. unless ( defined($pid) ) {
66. print("Content-type: text/plain\r\n\r\n");
67. print "Error: CGI app returned no output – Executing $req_params{SCRIPT_FILENAME} failed !\n";
68. next;
69. }
70. $oldfh = select(PARENT_ERR);
71. $|     = 1;
72. select(CHILD_O);
73. $| = 1;
74. select($oldfh);
75. if ( $pid > 0 ) {
76. close(CHILD_RD);
77. close(CHILD_ERR);
78. print PARENT_WR $stdin_passthrough;
79. close(PARENT_WR);
80. $rin = $rout = $ein = $eout = ”;
81. vec( $rin, fileno(CHILD_O),    1 ) = 1;
82. vec( $rin, fileno(PARENT_ERR), 1 ) = 1;
83. $ein    = $rin;
84. $nfound = 0;
85. while ( $nfound = select( $rout = $rin, undef, $ein = $eout, 10 ) ) {
86. die "$!" unless $nfound != -1;
87. $r1 = vec( $rout, fileno(PARENT_ERR), 1 ) == 1;
88. $r2 = vec( $rout, fileno(CHILD_O),    1 ) == 1;
89. $e1 = vec( $eout, fileno(PARENT_ERR), 1 ) == 1;
90. $e2 = vec( $eout, fileno(CHILD_O),    1 ) == 1;
91. if ($r1) {
92. while ( $bytes = read( PARENT_ERR, $errbytes, 4096 ) ) {
93. print STDERR $errbytes;
94. }
95. if ($!) {
96. $err = $!;
97. die $!;
98. vec( $rin, fileno(PARENT_ERR), 1 ) = 0
99. unless ( $err == EINTR or $err == EAGAIN );
100. }
101. }
102. if ($r2) {
103. while ( $bytes = read( CHILD_O, $s, 4096 ) ) {
104. print $s;
105. }
106. if ( !defined($bytes) ) {
107. $err = $!;
108. die $!;
109. vec( $rin, fileno(CHILD_O), 1 ) = 0
110. unless ( $err == EINTR or $err == EAGAIN );
111. }
112. }
113. last if ( $e1 || $e2 );
114. }
115. close CHILD_RD;
116. close PARENT_ERR;
117. waitpid( $pid, 0 );
118. } else {
119. foreach $key ( keys %req_params ) {
120. $ENV{$key} = $req_params{$key};
121. }
122. # cd to the script’s local directory
123. if ( $req_params{SCRIPT_FILENAME} =~ /^(.*)\/[^\/] +$/ ) {
124. chdir $1;
125. }
126. close(PARENT_WR);
127. #close(PARENT_ERR);
128. close(STDIN);
129. close(STDERR);
130. #fcntl(CHILD_RD, F_DUPFD, 0);
131. syscall( &SYS_dup2, fileno(CHILD_RD),  0 );
132. syscall( &SYS_dup2, fileno(CHILD_ERR), 2 );
133. #open(STDIN, "<&CHILD_RD");
134. exec( $req_params{SCRIPT_FILENAME} );
135. die("exec failed");
136. }
137. } else {
138. print("Content-type: text/plain\r\n\r\n");
139. print "Error: No such CGI app – $req_params{SCRIPT_FILENAME} may not exist or is not executable by this process.\n";
140. }
141. }
142. }

#chmod 777 nginx-cgi.pl

#/usr/local/nginx/sbin/nginx-cgi.pl >/dev/null &   //启动FCGI

#echo "/usr/local/nginx/sbin/nginx-cgi.pl >/dev/null &" >>/etc/rc.local

注：FCGI监听地址为127.0.0.1:8999，如想改变可以在nginx-cgi.pl内修改

三、配置Nginx

Nginx配置如下

1. server {
2. listen 80;
3. index index.php index.cgi;
4. server_name blog.luwenju.com;
5. root           /usr/local/nginx/html;
6. location ~ \.php$ {
7. fastcgi_pass   unix:/usr/local/nginx/php-cgi.sock;
8. fastcgi_index  index.php;
9. fastcgi_param  SCRIPT_FILENAME  $document_root$fastcgi_script_name;
10. include        fastcgi_params;
11. }
12. location ~ \.cgi$ {
13. root /usr/local/nginx/html;
14. fastcgi_pass 127.0.0.1:8999;
15. fastcgi_param  SCRIPT_FILENAME $document_root$fastcgi_script_name;
16. include fastcgi_params;
17. }
18. }

四、测试

#vi /usr/local/nginx/html/test.cgi

1.           #!/usr/bin/perl

2.           print "Content-type: text/html\n\n";

3.           print "<html><body>Hello, world.</body></html>";

然后打开浏览器访问http://localhost/test.cgi，如果出现内容为Hello,world.则说明配置成功.