Nginx中文文档

EmbeddedPerl

This module makes it possible to execute Perl directly within Nginx and call Perl via SSI.

Building Module at Compile-time

Unless built at compile-time, the module is not available. The default is to not build this module. If you want to enable this module, is necessary to specify --with-http_perl_module when running configure.

Your system must have Perl 5.6.1 or above.

Known Problems

This module is experimental; therefore anything is possible and bugs are likely.

  1. If a Perl module performs protracted operation, (for example DNS lookups, database queries, etc), then the worker process that is running the Perl script is completely tied up for the duration of script. Therefore embedded Perl scripts should be extremely careful to limit themselves to short, predictable operations.
  2. It's possible for Nginx to leak memory if you reload the configuration file (via 'kill -HUP <pid>').

Example: 

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!\n<br/>");
  $r->rflush;
 
  if (-f $r->filename or -d _) {

    $r->print($r->uri, " exists!\n");
  }
 
  return OK;

}
 
1;
__END__

指令

perl

syntax: perl module::function | 'sub {...}'

default: no

context: location

Directive establishes a function for the data location.

perl_modules

syntax: perl_modules path

default: no

context: http

Directive assigns additional path for Perl modules. Since version 0.6.7 this path is relative to directory of nginx configuration file nginx.conf, but not to nginx prefix directory.

perl_require

syntax: perl_require module

default: no

context: http

There can be multiple perl_require directives.

perl_set

syntax: perl_set module::function | 'sub {...}'

default: no

context: http

Directive establishes the function of variable ???

Calling Perl from SSI

Instruction format is as follows: 

<!- # perl sub="module::function" arg="parameter1" arg="parameter2"... >

Methods of request object $r: 

package hello;
 
use nginx;
 
sub handler {

  my $r = shift;
 
  if ($r->request_method ne "POST") {

    return DECLINED;
  }
 
  if ($r->has_request_body(hello::post)) {
    return OK;
  }

 
  return 400;
}
 
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/>\n");
  return OK;

}
 
1;
 
__END__
So that the body of the demand of client is guaranteed to remain in memory, it is necessary to limit its size with the aid
of client_max_body_size and to assign sufficient size for the buffer using client_body_buffer_size.

References

Original Documentation