目錄
perl environment variables
首頁 運維 Nginx Linux下如何用Nginx作Perl程式伺服器及其中Perl模組

Linux下如何用Nginx作Perl程式伺服器及其中Perl模組

May 16, 2023 pm 11:25 PM
linux nginx perl

perl + fastcgi + nginx搭建

nginx + fastcgi是php下最流行的一套环境了,那perl会不会也有fastcgi呢,当然有,今天来搭建下nginx下perl的fastcgi.性能方面也不亚于php,但是现在web程序php的流行程度perl无法比拟了,性能再好也枉然,但是部分小功能可以考虑使用perl的fastcgi来搞定.进入正题.
1. 准备软件环境:

nginx
perl:系统自带
fastcgi

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;
}
 
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 < $req_len) {
      my $data = '';
      my $bytes = read(stdin, $data, ($req_len - $bytes_read));
      last if ($bytes == 0 || !defined($bytes));
      $stdin_passthrough .= $data;
      $bytes_read += $bytes;
    }
   }
 
   #running the cgi app
   if ( (-x $req_params{script_filename}) && #can i execute this?
     (-s $req_params{script_filename}) && #is this file empty?
     (-r $req_params{script_filename})  #can i read this file?
   ){
  pipe(child_rd, parent_wr);
  my $pid = open(kid_to_read, "-|");
  unless(defined($pid)) {
   print("content-type: text/plain\r\n\r\n");
      print "error: cgi app returned no output - ";
      print "executing $req_params{script_filename} failed !\n";
   next;
  }
  if ($pid > 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, "<&child_rd");
   exec($req_params{script_filename});
   die("exec failed");
  }
   }
   else {
    print("content-type: text/plain\r\n\r\n");
    print "error: no such cgi app - $req_params{script_filename} may not ";
    print "exist or is not executable by this process.\n";
   }
 
  }
}
登入後複製

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
登入後複製

3.3 设置脚本权限

# chmod a+x /usr/bin/fastcgi-wrapper.pl
# chmod a+x /etc/rc.d/init.d/perl-fastcgi
登入後複製


4. fastcgi测试
4.1 启动nginx与fastcgi

# /usr/local/nginx-1.4.2/sbin/nginx
# /etc/init.d/perl-fastcgi start
登入後複製

4.2 perl测试文件:
文件路径/data/site/test.jb51.net/test.pl

#!/usr/bin/perl
 
print "content-type:text/html\n\n";
print <<endofhtml;
<html><head><title>perl environment variables</title></head>
<body>
<h1 id="perl-nbsp-environment-nbsp-variables">perl environment variables</h1>
endofhtml
 
foreach $key (sort(keys %env)) {
 print "$key = $env{$key}<br>\n";
}
 
print "</body></html>";
登入後複製

5. 访问测试

5.1 访问
http://http:test.jb51.net/test.pl,出现内容表示ok.

6. 简单压力测试:
6.1 使用tcp/ip方式

ab -n 1000 -c 10 http://test.jb51.net/test.pl
登入後複製

他是在是太慢了,只好用10个并发,共计100个请求来测试.

Linux下如何用Nginx作Perl程式伺服器及其中Perl模組

6.2 使用socket方式:

ab -n 100000 -c 500 http://test.jb51.net/test.pl
登入後複製

Linux下如何用Nginx作Perl程式伺服器及其中Perl模組

很奇怪,使用tcp/ip方式,每秒就140多个请求,而使用socket方式却有5800个请求/秒。差距不是一般的大。顺便测试了一下php的fastcgi,大概请求在3000(tcp/ip方式),4800(socket方式)。

perl模块的使用
如果对于一个绝大部分内容是静态的网站,只有极少数的地方需要动态显示,碰巧你又了解一点perl知识,那么nginx + perl的结合就能很好解决问题。要想nginx支持perl脚本,在编译nginx时候需要如下参数:

./configure --with-http_perl_module
登入後複製

如果make时候出现如下类似错误:

can&#39;t locate extutils/embed.pm in @inc (@inc contains: /usr/lib/perl5/5.10.0/i386-linux-thread-multi /usr/lib/perl5/5.10.0 /usr/local/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi /usr/local/lib/perl5/site_perl/5.10.0 /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/perl5/vendor_perl /usr/local/lib/perl5/site_perl .)
登入後複製

你的机器上可能需要安装perl-devel perl-extutils-embed,对于centos系统,直接使用yum搞定,例如:

yum -y install perl-devel perl-extutils-embed
登入後複製

nginx中使用perl有两种方法,一种是直接在配置文件写,还有一种是把perl脚本写在外部文件中,下面主要介绍一下第二种用法。
假设nginx的根目录为/usr/local/nginx,perl脚本存放的目录为nginx的根目录下的perl/lib下,脚本名字为test.pm,nginx配置为:

#位于http配置中
 perl_modules perl/lib;
 perl_require test.pm;
 
#位于server配置中
 location /user/ {
 perl pkg_name::process;
 }
登入後複製

上述配置是把所有来自http://servername/user/下的请求交由test.pm脚本中定义的process方法来处理。
test.pm脚本的内容如下:

package pkg_name;
 
use time::local;
use nginx;
 
sub process {
 my $r = shift;
 
 $r->send_http_header(&#39;text/html; charset=utf-8&#39;);
 my @arr = split(&#39;/&#39;, $r->uri);
 my $username = @arr[2];
 
 if (!$username || ($username eq "")) {
 $username = "anonymous";
 }
 
 $r->print(&#39;hello, you name is : <strong>&#39; . $username . &#39;</strong>&#39;);
 $r->rflush();
 return;
}
 
1;
__end__
登入後複製

当你访问http://servername/user/netingcn,你应该可以在网页上看到:

hello, you name is : netingcn
登入後複製

另外:当使用 use nginx 时,会有如下的对象可以调用,可以看到上面 shift 一个对象到 $r 上,然后就可以用 $r 调用那些对象了:

  • $r->args – 请求的参数 .

  • $r->discard_request_body – 这个参数是让 nginx 放弃 request 的 body 的内容.

  • $r->filename – 返回合适的请求文件的名字

  • $r->has_request_body(function) – 如果没有请求主体,返回0,但是如果请求主体存在,那么建立传递的函数并返回1,在程序的最后,nginx将调用指定的处理器.

  • $r->header_in(header) – 查找请求头的信息

  • $r->header_only – 如果我们只要返回一个响应的头

  • $r->header_out(header, value) – 设置响应的头

  • $r->internal_redirect(uri) – 使内部重定向到指定的uri,重定向仅在完成perl脚本后发生.可以使用 header_out(location….的方法来让浏览器自己重定向

  • $r->print(args, …) – 发送数据给客户端

  • $r->request_body – 得到客户端提交过来的内容 (body 的参数,可能需要修改 nginx 的 client_body_buffer_size. )

  • $r->request_body_file —给客户的 body 存成文件,并返回文件名

  • $r->request_method — 得到请求 http method.

  • $r->remote_addr – 得到客户端的 ip 地址.

  • $r->rflush – 立即傳送資料給客戶端

  • $r->sendfile(file [, displacement [, length ] ) – 傳送給客戶端指定檔案的內容,可選的參數表示只傳送資料的偏移量與長度,精確的傳遞僅在perl腳本執行完畢後生效.這可是所謂的高級功能啊

  • $r->send_http_header(type) – 新增一個回應的http 頭的資訊

  • $r->sleep(milliseconds, handler) – 設定為請求在指定的時間使用指定的處理方法和停止處理,在此期間nginx將繼續處理其他的請求,超過指定的時間後,nginx將運行安裝的處理方法,注意你需要為處理方法通過一個reference,在處理器間轉送資料你可以用$r->variable().

  • $r->status(code) – 設定http 的回應碼

  • ##$r->unescape(text) – 使用http 方法加密內容如%xx
  • #$r->uri – 得到請求的url.
  • $r->variable(name[, 值]) – 設定變數的值
######

以上是Linux下如何用Nginx作Perl程式伺服器及其中Perl模組的詳細內容。更多資訊請關注PHP中文網其他相關文章!

本網站聲明
本文內容由網友自願投稿,版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容,請聯絡admin@php.cn

熱AI工具

Undresser.AI Undress

Undresser.AI Undress

人工智慧驅動的應用程序,用於創建逼真的裸體照片

AI Clothes Remover

AI Clothes Remover

用於從照片中去除衣服的線上人工智慧工具。

Undress AI Tool

Undress AI Tool

免費脫衣圖片

Clothoff.io

Clothoff.io

AI脫衣器

AI Hentai Generator

AI Hentai Generator

免費產生 AI 無盡。

熱門文章

R.E.P.O.能量晶體解釋及其做什麼(黃色晶體)
1 個月前 By 尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.最佳圖形設置
1 個月前 By 尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.如果您聽不到任何人,如何修復音頻
1 個月前 By 尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.聊天命令以及如何使用它們
1 個月前 By 尊渡假赌尊渡假赌尊渡假赌

熱工具

記事本++7.3.1

記事本++7.3.1

好用且免費的程式碼編輯器

SublimeText3漢化版

SublimeText3漢化版

中文版,非常好用

禪工作室 13.0.1

禪工作室 13.0.1

強大的PHP整合開發環境

Dreamweaver CS6

Dreamweaver CS6

視覺化網頁開發工具

SublimeText3 Mac版

SublimeText3 Mac版

神級程式碼編輯軟體(SublimeText3)

docker怎麼創建鏡像 docker怎麼創建鏡像 Apr 15, 2025 am 11:27 AM

創建 Docker 鏡像步驟:編寫包含構建指令的 Dockerfile。在終端中構建鏡像,使用 docker build 命令。標記鏡像,使用 docker tag 命令分配名稱和標籤。

docker desktop怎麼用 docker desktop怎麼用 Apr 15, 2025 am 11:45 AM

如何使用 Docker Desktop? Docker Desktop 是一款工具,用於在本地機器上運行 Docker 容器。其使用步驟包括:1. 安裝 Docker Desktop;2. 啟動 Docker Desktop;3. 創建 Docker 鏡像(使用 Dockerfile);4. 構建 Docker 鏡像(使用 docker build);5. 運行 Docker 容器(使用 docker run)。

docker容器名稱怎麼查 docker容器名稱怎麼查 Apr 15, 2025 pm 12:21 PM

可以通過以下步驟查詢 Docker 容器名稱:列出所有容器(docker ps)。篩選容器列表(使用 grep 命令)。獲取容器名稱(位於 "NAMES" 列中)。

docker怎麼啟動容器 docker怎麼啟動容器 Apr 15, 2025 pm 12:27 PM

Docker 容器啟動步驟:拉取容器鏡像:運行 "docker pull [鏡像名稱]"。創建容器:使用 "docker create [選項] [鏡像名稱] [命令和參數]"。啟動容器:執行 "docker start [容器名稱或 ID]"。檢查容器狀態:通過 "docker ps" 驗證容器是否正在運行。

docker怎麼創建容器 docker怎麼創建容器 Apr 15, 2025 pm 12:18 PM

在 Docker 中創建容器: 1. 拉取鏡像: docker pull [鏡像名] 2. 創建容器: docker run [選項] [鏡像名] [命令] 3. 啟動容器: docker start [容器名]

vscode需要什麼電腦配置 vscode需要什麼電腦配置 Apr 15, 2025 pm 09:48 PM

VS Code 系統要求:操作系統:Windows 10 及以上、macOS 10.12 及以上、Linux 發行版處理器:最低 1.6 GHz,推薦 2.0 GHz 及以上內存:最低 512 MB,推薦 4 GB 及以上存儲空間:最低 250 MB,推薦 1 GB 及以上其他要求:穩定網絡連接,Xorg/Wayland(Linux)

vscode 無法安裝擴展 vscode 無法安裝擴展 Apr 15, 2025 pm 07:18 PM

VS Code擴展安裝失敗的原因可能包括:網絡不穩定、權限不足、系統兼容性問題、VS Code版本過舊、殺毒軟件或防火牆干擾。通過檢查網絡連接、權限、日誌文件、更新VS Code、禁用安全軟件以及重啟VS Code或計算機,可以逐步排查和解決問題。

docker鏡像失敗怎麼辦 docker鏡像失敗怎麼辦 Apr 15, 2025 am 11:21 AM

Docker鏡像構建失敗的故障排除步驟:檢查Dockerfile語法和依賴項版本。檢查構建上下文中是否包含所需源代碼和依賴項。查看構建日誌以獲取錯誤詳細信息。使用--target選項構建分層階段以識別失敗點。確保使用最新版本的Docker引擎。使用--t [image-name]:debug模式構建鏡像以調試問題。檢查磁盤空間並確保足夠。禁用SELinux以防止干擾構建過程。向社區平台尋求幫助,提供Dockerfile和構建日誌描述以獲得更具體的建議。

See all articles