ngx_http_perl_module 模块用于在 Perl 中实现 location 和变量处理程序，并将 Perl 调用插入 SSI。
这个模块不是默认构建的，它应该使用 --with-http_perl_module 配置参数启用。
此模块需要 Perl 5.6.1 或更高版本。C 编译器应该与用于构建 Perl 的编译器兼容。
该模块是实验性的，请谨慎使用。
为了让 Perl 在重新配置期间重新编译修改后的模块，应该使用 -Dusemultiplicity=yes 或 -Dusethreads=yes 参数构建它。此外，为了使 Perl 在运行时泄漏更少的内存，应该使用 -Dusemymalloc=no 参数构建它。要在已构建的 Perl 中检查这些参数的值（示例中指定了首选值），请运行：
$ perl -V:usemultiplicity -V:usemymalloc usemultiplicity='define'; usemymalloc='n';
请注意，在使用新的 -Dusemultiplicity=yes 或 -Dusethreads=yes 参数重新构建 Perl 之后，所有二进制 Perl 模块也必须重新构建——它们将停止使用新的 Perl。
每次重新配置后，主进程和工作进程的大小可能会增加。如果主进程增长到不可接受的大小，可以在不更改可执行文件的情况下应用实时升级过程。
当 Perl 模块正在执行长时间运行的操作时，例如解析域名、连接到另一台服务器或查询数据库，分配给当前工作进程的其他请求将不会被处理。 因此，建议仅执行具有可预测且执行时间短的操作，例如访问本地文件系统。
http {
perl_modules perl/lib;
perl_require hello.pm;
perl_set $msie6 '
sub {
my $r = shift;
my $ua = $r->header_in("User-Agent");
return "" if $ua =~ /Opera/;
return "1" if $ua =~ / MSIE [6-9].d+/;
return "";
}
';
server {
location / {
perl hello::handler;
}
}perl/lib/hello.pm 模块：
package hello;
use nginx;
sub handler {
my $r = shift;
$r->send_http_header("text/html");
return OK if $r->header_only;
$r->print("hello!
<br/>");
if (-f $r->filename or -d _) {
$r->print($r->uri, " exists!
");
}
return OK;
}
1;
__END__语 法：perl module::function|'sub { ... }';
默认值：—
上下文：location, limit_except为给定 location 设置 Perl 处理程序。
语 法：perl_modules path; 默认值：— 上下文：http
为 Perl 模块设置附加路径。
语 法：perl_require module; 默认值：— 上下文：http
定义将在每次重新配置期间加载的模块的名称。可以存在多个 perl_require 指令。
语 法：perl_set $variable module::function|'sub { ... }';
默认值：—
上下文：http为指定的变量安装 Perl 处理程序。
调用 Perl 的 SSI 命令具有以下格式：
<!--# perl sub="module::function" arg="parameter1" arg="parameter2" ... -->
返回请求参数。
返回与请求 URI 对应的文件名。
如果请求中没有正文，则返回 0。如果有正文，则为请求设置指定的处理程序并返回 1。nginx 读取请求体后，会调用指定的处理程序。请注意，处理程序函数应通过引用传递。例子：
package hello;
use nginx;
sub handler {
my $r = shift;
if ($r->request_method ne "POST") {
return DECLINED;
}
if ($r->has_request_body(&post)) {
return OK;
}
return HTTP_BAD_REQUEST;
}
sub post {
my $r = shift;
$r->send_http_header;
$r->print("request_body: "", $r->request_body, ""<br/>");
$r->print("request_body_file: "", $r->request_body_file, ""<br/>
");
return OK;
}
1;
__END__在发送响应时启用字节范围。
指示 nginx 丢弃请求正文。
返回指定客户端请求头字段的值。
确定是将整个响应还是仅其标头发送给客户端。
为指定的响应头字段设置一个值。
执行到指定 uri 的内部重定向。Perl 处理程序执行完成后会发生实际的重定向。
从版本 1.17.2 开始，该方法接受转义的 URI 并支持重定向到命名位置。
将指定的消息写入 error_log。如果 errno 非零，则错误代码及其描述将附加到消息中。
将数据传递给客户端。
如果尚未写入临时文件，则返回客户端请求正文。为确保客户端请求正文在内存中，其大小应受 client_max_body_size 限制，并应使用 client_body_buffer_size 设置足够的缓冲区大小。
返回带有客户端请求正文的文件名。处理后，应删除该文件。要始终将请求正文写入文件，应启用 client_body_in_file_only。
返回客户端请求 HTTP 方法。
返回客户端 IP 地址。
立即向客户端发送数据。
将指定的文件内容发送到客户端。可选参数指定要传输的数据的初始偏移量和长度。实际的数据传输发生在 Perl 处理程序完成之后。
将响应头发送给客户端。可选的类型参数设置 “Content-Type” 响应头字段的值。如果值为空字符串，则不会发送 “Content-Type” 头字段。
设置响应代码。
设置指定的处理程序并在指定的时间内停止请求处理。与此同时，nginx 继续处理其他请求。经过指定的时间后，nginx 将调用已安装的处理程序。请注意，处理程序函数应通过引用传递。为了在处理程序之间传递数据，应该使用 $r->variable()。例子：
package hello;
use nginx;
sub handler {
my $r = shift;
$r->discard_request_body;
$r->variable("var", "OK");
$r->sleep(1000, &next);
return OK;
}
sub next {
my $r = shift;
$r->send_http_header;
$r->print($r->variable("var"));
return OK;
}
1;
__END__解码以 “%XX” 形式编码的文本。
返回请求 URI。
返回或设置指定变量的值。变量是每个请求的本地变量。
