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