nginx + Perl + FastCGI + построчный вывод
Добавлено: 2011-05-23 14:08:52
Столкнулся с непонятностью: демон на perl при обращении к нему через nginx выводит все и сразу и только после полной отработки скрипта. А должен и хочется, чтобы выводил построчно по мере генерации.
Код самого скрипта:
В конфиге nginx:
gzip отключен.
Подскажите, плз, ибо печаль. Должно же работать...
Код самого скрипта:
Код: Выделить всё
#!/usr/bin/perl
use strict;
use warnings;
use FCGI;
use Proc::Daemon;
use Proc::PID::File;
$| = 1;
Proc::Daemon::Init();
if (Proc::PID::File->running()) {
print "Already running\n";
exit 0;
}
my $socket = FCGI::OpenSocket(":9888", 5);
my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket);
while($request->Accept() >= 0) {
print "Content-Type: text/html\r\n\r\n";
print "Autoflush is currently ".($|?"on":"off").".\n";
for ( 1..5 ) {
print "Value is $_.\n";
sleep 1;
}
print "Autoflush is currently ".($|?"on":"off").".\n";
};Код: Выделить всё
location ~* ^/ts/? {
fastcgi_pass localhost:9888;
}Подскажите, плз, ибо печаль. Должно же работать...