LINUX.ORG.RU

Прокси сервер на perl.

 


1

2

Доброго времени суток.

Что-то столкнулся с проблемой и не могу понять что не так делаю.

Есть nginx с FastCGI который смотрит на скрипт на perl.

Делаю такую вещь:

use AnyEvent;
use AnyEvent::FCGI;

my $fcgi = new AnyEvent::FCGI(
     port => 9000,
     on_request => sub {
          my $request = shift;

          sleep 10 if $flag = 1;

          make_get_req_to_server($args);

          $request->respond(
                'OH HAI! QUERY_STRING is ' . $request->param('QUERY_STRING'),
                'Content-Type' => 'text/plain',
            );
        }
    );

sleep - тут как эмуляция задержки которая может быт при выполнени make_get_req_to_server($args);

И если сделать запрос и что-бы «включился sleep», то пока не пройдёт 10 сек, то сервер не овечает на запросы.

Подскажите, это нормально или что-то тут не так?


Это нормально, как написал, так и работает. Как еще должен работать sleep в однопоточной программе?

disarmer ★★★
()
Последнее исправление: disarmer (всего исправлений: 1)

Тебе надо вникнуть как работает событийное программирование на перле. Посмотри статейки в журнале http://pragmaticperl.com/

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