Nginx-ru mailing list archive (nginx-ru@sysoev.ru)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Как запустить perl-програ мму в nginx
попробуйте такой пример. Работает только с GETом )
use YAML;
sub handler {
my $r = shift;
my %qparam;
my @arr = split('&',uri_unescape($r->args));
for(@arr){
my @var = split('=',$_);
$qparam{$var[0]}=$var[1];
}
$r->header_out("Content-Type","text/html; charset=utf-8");
$r->send_http_header();
$r->print(Dump(%qparam));
$r->print($r->uri);
return OK;
}
localhost:80/nginx/test/test/?a=1&b=2
_______________________________________________
nginx-ru mailing list
nginx-ru@xxxxxxxxx
http://mailman.nginx.org/mailman/listinfo/nginx-ru
|
