您的位置：首页 > 编程技术 > Perl  >  Perl使用nginx FastCGI环境做WEB开发实例

Perl使用nginx FastCGI环境做WEB开发实例

 更新时间：2020年6月29日 13:42  点击：1405

Hello World

一个简单的hello world例子：

复制代码 代码如下:

#!/usr/bin/env perl
use strict;
use warnings;
use CGI::Fast;
while(my $q = new CGI::Fast)
{
 print $q->header("text/plain");
 print "Hello World";
}

和CGI的区别仅在于多了一个循环来接受请求，CGI::Fast对象和CGI接口是一样的，而且该脚本也可以当做CGI脚本使用。

搭建nginx + FastCGI 环境

Perl使用CGI::Fast包来提供FastCGI服务，该包提供两种方式来启动FastCGI进程，一个是直接使用该包提供的服务将当前进程变为FastCGI进程，另外一个是使用第三方工具spawn-fcgi来启动。
nginx配置方式例子：

复制代码 代码如下:

        location / {
            fastcgi_pass   127.0.0.1:8184;
            fastcgi_param  SCRIPT_FILENAME  /scripts$fastcgi_script_name;
            include        fastcgi_params;
        }

配置好nginx后，使用spawn-fcgi来启动前面的Hello World：
复制代码 代码如下:

$ spawn-fcgi -n -a 127.0.0.1 -p 8184 -f ./main.pl


调试支持

在前面的命令行里使用了参数-n，让spawn-fcgi不要fork出多个进程，并阻塞，允许用户Ctrl+C来关闭，产品服务器可以去掉这个参数来充分利用服务器的多核来提供更高的并发数。我之前写了一个bash脚本，允许在文件改动的情况下重启服务，方便调试perl程序，代码如下：

复制代码 代码如下:

#!/bin/bash
#PID文件和需要启动的脚本
PID_FILE=service.pid
MAIN=main.pl

#关闭之前启动的进程
term() {
    test -e $PID_FILE || return
    pid=`cat $PID_FILE`
    kill -s -0 $pid  || return
    echo "Terminating $MAIN $pid"
    rm -f $PID_FILE
    kill $pid
    wait $pid
}
#当前脚本退出的时候也关闭启动了的FastCGI进程
trap "term;exit" SIGINT SIGTERM
while true
do
#首次启动或者文件改动后都需要关闭之前的进程
    term
#以no fork方式启动脚本来调试，并将PID写入到文件
    spawn-fcgi -n -a 127.0.0.1 -p 8184 -f ./$MAIN  &
    pid=$!
    echo $pid > $PID_FILE
    echo "My Perl service started, pid = $pid"
#监控文件变化
    files=`find . -name '*.pl' -o -name '*.pm' -o -name '*.html'`
    md5=`md5sum $files|md5sum`
#wait for file change
    while [[ `md5sum $files|md5sum` = "$md5" ]]
    do
        sleep 1
    done
    echo "File changes detected, restarting service"
done


该脚本已在Mac OSX和Linux下测试通过

路由系统

做Web开发离不开路由实现，来对不同请求来做出特定的响应。
路由请求依赖HTTP Method和URI两部分，因此主要就是需要这两者来做分派。
在CGI中可以通过环境变量REQUEST_METHOD和REQUEST_URI来获取请求方法和URI。
因此一个简单的路由系统实际上可以分解为一个二级的map，注册路由实际上就是往这个map里放入规则对应的处理函数，而分派请求则是从这个map里根据规则获取对应的处理函数，一个简单的例子：

复制代码 代码如下:

my %routers = ();

sub not_found
{
    print "Status: 404\n";
    print "Content-Type: text/html\n\n";
    print<<EOF
<html>
<body>
<h1>404 Not found</h1>
Cannot find $ENV{REQUEST_PATH}.
</body>
</html>
EOF
}


sub add_rule
{
    my ($method, $path, $callback) = @_;
    my $handlers = $routers{$method};
    $handlers = $routers{$method} = {} if not $handlers;
    $handlers->{$path} = $callback;
}

sub dispatch
{
    my $q = shift;
    my $method = $ENV{REQUEST_METHOD};
    my $uri = $ENV{REQUEST_URI};
    $uri =~ s/\?.*$//;
    my $handler = ($routers{$method} || {})->{$uri} || not_found;
    eval
    {
 &$handler($q);
    };
    print STDERR "Failed to handle $method $uri: $@\n" if $@;
}


使用这个路由系统的例子：
复制代码 代码如下:

sub index
{
    my ($q) = @_;
    print $q->header('text/plain');
    print "Hello World!";
}

router::add_rule('GET', '/', \&index);


模板系统

perl提供了大量的模板系统的实现，我个人最喜欢的是Template Toolkit，文档也非常丰富，网站是 http://www.template-toolkit.org/ 。

将前面的index修改为使用模板的例子：

复制代码 代码如下:

use Template;

my $tt = new Template({INCLUDE_PATH => 'templates', INTERPOLATE => 1});

sub index
{
    my ($q) = @_;
    my $output = '';
    print $q->header('text/html');

    $tt->process('index.html', {world => 'World'}, $output) || die $tt->error();
    print $output;
}


其中templates/index.html文件内容如下：
复制代码 代码如下:

<html>
<head><title>Demo</title></head>
<body>
Hello ${world}
</body>
</html>

完！

[!--infotagslink--]

相关文章

  • 详解nginx同一端口监听多个域名和同时监听http与https

    这篇文章主要介绍了详解nginx同一端口监听多个域名和同时监听http与https的相关资料,需要的朋友可以参考下...2017-07-06

  • Perl模块编写说明

    这两天在用Perl编写一些监控脚本，其实写代码也是一件挺有意思的事情，就是挺废时间的。而且，由于语法不太熟，基本想到一个东西都要先Google一下看怎么实现。...2020-06-29

  • Nginx根据不同浏览器语言配置页面跳转的方法

    这篇文章主要介绍了Nginx根据不同浏览器语言配置页面跳转的方法,包括一个简体繁体的基本判断方法及实际根据中英文跳转的例子,需要的朋友可以参考下...2016-05-22

  • Perl与JS的对比分析(数组、哈希)

    下面小编就为大家带来一篇Perl与JS的对比分析(数组、哈希)。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧...2020-06-29

  • perl 模式匹配参数详解

    一、简介 模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array = split(/ /, $line);二、匹配...2020-06-29

  • shell脚本多实例部署nginx的详细教程

    周一今天给大家分享shell脚本多实例部署nginx的详细教程，文章通过实例代码脚本给大家详细介绍，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友参考下吧...2021-10-26

  • Nginx中配置过滤爬虫的User-Agent的简单方法

    这篇文章主要介绍了Nginx中配置过滤爬虫的User-Agent的简单方法,文中罗列了一些常用搜索引擎的爬虫名称以免造成不必要的过滤,需要的朋友可以参考下...2016-01-27

  • Perl localtime时间函数的应用介绍

    Perl时间函数localtime的使用介绍，这里简单的介绍下，更多请查看官方介绍...2020-06-29

  • Perl中的特殊内置变量详细介绍

    这篇文章主要介绍了Perl中的特殊内置变量详细介绍,需要的朋友可以参考下...2020-06-29

  • perl 列表和数组变量详解

    一、列表 列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , "hello" , 2)，空列表：()。 注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同...2020-06-29

  • 讲Perl中的本地时间与UNIX时间戳间相互转换的方法

    这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下...2020-06-29

  • Perl 批量添加Copyright版权信息

    对所有输入文件，如果没有版权信息则加上版权信息，否则什么都不做，并对原文件以.bak结尾备份,需要的朋友可以参考下...2020-06-29

  • Perl学习笔记之CPAN使用介绍

    这篇文章主要介绍了Perl学习笔记之CPAN使用介绍,本文讲解了什么是CPAN、CPAN的目录作用介绍、CPAN安装Perl Module的两种方法等内容,需要的朋友可以参考下...2020-06-29

  • nginx配置引发的403问题解决办法

    这篇文章主要介绍了nginx配置引发的403问题解决办法的相关资料,需要的朋友可以参考下...2017-07-06

  • Linux环境下nginx搭建简易图片服务器

    这篇文章主要介绍了Linux环境下nginx搭建简易图片服务器,需要的朋友可以参考下...2016-01-27

  • Nginx访问日志及错误日志参数说明

    这篇文章主要介绍了Nginx访问日志及错误日志参数说明,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下...2020-11-14

  • Perl中使用MIME::Lite发送邮件实例

    这篇文章主要介绍了Perl中使用MIME::Lite发送邮件实例,本文介绍了使用sendmail方式发送、发送HTML格式邮件、smtp方式发送邮件等内容,需要的朋友可以参考下...2020-06-29

  • 使用nginx方式实现http转换为https的示例代码

    这篇文章主要介绍了使用nginx方式实现http转换为https的示例代码，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧...2020-09-06

  • Nginx反向代理proxy_cache_path directive is not allowed错误解决方法

    这篇文章主要介绍了Nginx反向代理proxy_cache_path directive is not allowed错误解决方法,需要的朋友可以参考下...2016-01-27

  • nginx+apache+mysql+php+memcached+squid搭建集群web环境

    当前，LAMP开发模式是WEB开发的首选，如何搭建一个高效、可靠、稳定的WEB服务器一直是个热门主题，本文就是这个主题的一次尝试。...2016-01-27