Телеграмм чат группы usePerlOrDie страница 1705

2020 December 19

АК

Эм-м…

say 'START';
my $cond = AnyEvent->condvar;
$SIG{INT} = sub {
  say "Ctrl+C";
  $cond->send;
};
my $signal = AnyEvent->signal( signal => 'INT', cb => sub {
  say "INT recvd";
  $cond->send;
});
$cond->recv;
say 'EXIT';

Вот так внезапно работает, только с задержкой в 8-10 секунд после отправки Ctrl+C.
Что?

Кто проверит, у всех задержка?

источник

17:11пожаловаться #1

АК

Алексей Клименко... in use Perl or die;

Из юзов у меня только

use utf8;
use strict;
use warnings;
use Modern::Perl;
use AnyEvent;

источник

17:11пожаловаться #2

a

allter in use Perl or die;

мне кажется, тогда проще оставить $SIG{INT}, но $cond->recv заменить на более сложную конструкцию с таймерами. Просто что бы крутился евентлуп.

источник

17:42пожаловаться #3

a

allter in use Perl or die;

> The maximum time a signal might be delayed is 10 seconds by default, but can be overriden via $ENV{PERL_ANYEVENT_MAX_SIGNAL_LATENCY} or $AnyEvent::MAX_SIGNAL_LATENCY - see the "ENVIRONMENT VARIABLES" section for details.

вот это ещё читал?

источник

17:42пожаловаться #4

АК

Алексей Клименко... in use Perl or die;

allter

> The maximum time a signal might be delayed is 10 seconds by default, but can be overriden via $ENV{PERL_ANYEVENT_MAX_SIGNAL_LATENCY} or $AnyEvent::MAX_SIGNAL_LATENCY - see the "ENVIRONMENT VARIABLES" section for details.

вот это ещё читал?

Нет!

источник

17:44пожаловаться #5

АК

Алексей Клименко... in use Perl or die;

$AnyEvent::MAX_SIGNAL_LATENCY = 1;

РАБОТАЕТ

источник

17:45пожаловаться #6

a

allter in use Perl or die;

Короче, попробуй так:

BEGIN { $ENV{PERL_ANYEVENT_MAX_SIGNAL_LATENCY} //= 1 }
use AnyEvent;
say 'START';
my $cond = AnyEvent->condvar;
my $signal = AnyEvent->signal( signal => 'INT', cb => sub {
  say "INT recvd";
  $cond->send;
});
$cond->recv;
say 'EXIT';

источник

17:46пожаловаться #7

a

allter in use Perl or die;

Алексей Клименко

$AnyEvent::MAX_SIGNAL_LATENCY = 1;

РАБОТАЕТ

ура :)

источник

17:46пожаловаться #8

VG

Vadim Goncharov in use Perl or die;

allter

Короче, попробуй так:

BEGIN { $ENV{PERL_ANYEVENT_MAX_SIGNAL_LATENCY} //= 1 }
use AnyEvent;
say 'START';
my $cond = AnyEvent->condvar;
my $signal = AnyEvent->signal( signal => 'INT', cb => sub {
  say "INT recvd";
  $cond->send;
});
$cond->recv;
say 'EXIT';

а BEGIN зачем?

источник

17:46пожаловаться #9

a

allter in use Perl or die;

там один обработчик надо оставить (эниэвентовский)

источник

17:46пожаловаться #10

VG

Vadim Goncharov in use Perl or die;

allter

там один обработчик надо оставить (эниэвентовский)

боюсь, так не сработает :)

источник

17:47пожаловаться #11

АК

Алексей Клименко... in use Perl or die;

allter

ура :)

Он в signal тоже приходит, если SIG-блока нет, но как-то «позже», что ли.

Оставлю оба блока, пусть хоть кто-то выполнится, я всё равно там только булев флаг собрался ставить (чтобы все промисы и коллбеки выскочили с undef вместо результата).

источник

17:47пожаловаться #12

a

allter in use Perl or die;

Vadim Goncharov

а BEGIN зачем?

Что бы точно успеть до инициализации евентлупа.
В общем, в зависимости от конкретного приложения можно просто расставить где надо.

источник

17:47пожаловаться #13

a

allter in use Perl or die;

Алексей Клименко

Он в signal тоже приходит, если SIG-блока нет, но как-то «позже», что ли.

Оставлю оба блока, пусть хоть кто-то выполнится, я всё равно там только булев флаг собрался ставить (чтобы все промисы и коллбеки выскочили с undef вместо результата).

Там есть нюанс с любыми обработчиками сигналов в Perl.
Перловый код по умолчанию не выполнится, пока управление находится в сишной либе. Есть возможность вызвать безусловно, но это считается неправильным и будет неприятно взаимодействовать с евентлупом

источник

17:50пожаловаться #14

VG

Vadim Goncharov in use Perl or die;

allter

Там есть нюанс с любыми обработчиками сигналов в Perl.
Перловый код по умолчанию не выполнится, пока управление находится в сишной либе. Есть возможность вызвать безусловно, но это считается неправильным и будет неприятно взаимодействовать с евентлупом

виндовый AE по умолчанию луп на pure perl крутит, и даже не уверен, что умеет другие

источник

17:50пожаловаться #15

a

allter in use Perl or die;

поэтому правильно пользоваться AE`шным обработчиком сигнала + вот эту настройку latency выставлсять

источник

17:50пожаловаться #16

a

allter in use Perl or die;

Vadim Goncharov

виндовый AE по умолчанию луп на pure perl крутит, и даже не уверен, что умеет другие