LINUX.ORG.RU

perl FCGI::GetHandles


0

0
        my $proc_manager = new FCGI::ProcManager({ n_processes => $PROCESSES});
        my $socket = FCGI::OpenSocket($SOCKET, 100);
        my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket);
        my (undef,$out,undef) = $request->GetHandles();
        $proc_manager->pm_manage();
        while($request->Accept() >= 0){
                $proc_manager->pm_pre_dispatch();
                my $cgi = CGI::Fast->new();
                print "Content-type: text/html\r\n\r\n";
                print $out "ref " . ref($out) . "fileno " . fileno($out);
                #my_print();
                $proc_manager->pm_post_dispatch();
        }
        FCGI::CloseSocket($socket);

Вот код реализации FastCGI на перл. ref($out) == GLOB fileno($out) возвращает undef. Как получить номер дискриптора потока?

Мне просто необходимо писать в поток без перловского print

★★★

Ответ на: комментарий от babka1440

> ты идиот? какого хрена ты не пишешь в поток на лиспе. там все так и задумано.

Дибилойд!

corrnholio
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.