Всем привет! while (1) { sleep 5; my $rv

Question

Modern::Perl

Всем привет! while (1) { sleep 5; my $rv

= http_request();
}

sub http_request {
my $cv = AnyEvent->condvar;
my %arv;
$cv->begin(sub { shift->send(\%arv) });
my $guard; $guard = AnyEvent::HTTP::http_get(
$config->{cnf}->{url_tracking},
timeout => 5,
sub {
undef $guard;
$arv{http} = { body => $_[0], hdr => $_[1] };
$cv->end;
}
);
my $async_rv = $cv->recv;
return $async_rv;
}

Если sleep основного цикла >= timeout у AnyEvent::HTTP::http_get
то при каждом втором обороте цикла AnyEvent::HTTP::http_get отваливается по таймауту.
Если sleep основного цикла < timeout AnyEvent::HTTP::http_get
то все ок, http_get отрабатывает корректно при каждом обороте цикла
кто нибудь знает в чем дело?

#perl #programming #russian

0

21.12.2021

2 ответов

15 просмотров

Pavel Karpov Автор вопроса

Vadim Goncharov
а какой loop backend у AE используется? спрошу у Л...

должен EV, т.к. в системе он установлен а в доке по AnyEvent сказано, что если EV есть в системе, то он, иначе чистый perl loop

0

21.12.2021

Vadim Goncharov · Accepted Answer

Vadim Goncharov

а какой loop backend у AE используется? спрошу у Лемана, а то действительно, выглядит странно ...я бы еще посоветовал вместо дикости с %arv и begin/end просто использовать send - а то мало ли что с замыканием случается...

0

21.12.2021

169 похожих чатов

Всем привет! while (1) { sleep 5; my $rv

2 ответов

Похожие вопросы