В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

use Perl or die;

373 membersпожаловаться на группу
2020 December 19

АК

Алексей Клименко... in use Perl or die;
Павел Колганов ☭
Есть одна программулинка чисто под винду (требование такое было - писать под винду, WSL тогда не было), в которой ctrl+c обрабатывается. И работает ж.
Проверил, работает: perl -E "$SIG{INT} = sub { say 123; exit; }; sleep(1) for (1..10);"
Хм…
источник
16:59пожаловаться#1

a

allter in use Perl or die;
Павел Колганов ☭
Есть одна программулинка чисто под винду (требование такое было - писать под винду, WSL тогда не было), в которой ctrl+c обрабатывается. И работает ж.
Проверил, работает: perl -E "$SIG{INT} = sub { say 123; exit; }; sleep(1) for (1..10);"
а что за перл? ActiveState?
источник
17:00пожаловаться#2

VG

Vadim Goncharov in use Perl or die;
Павел Колганов ☭
Есть одна программулинка чисто под винду (требование такое было - писать под винду, WSL тогда не было), в которой ctrl+c обрабатывается. И работает ж.
Проверил, работает: perl -E "$SIG{INT} = sub { say 123; exit; }; sleep(1) for (1..10);"
видимо AnyEvent недопортирован
источник
17:00пожаловаться#3

VG

Vadim Goncharov in use Perl or die;
в его коде и так куча матов про винду, впрочем :)
источник
17:00пожаловаться#4

ПК

Павел Колганов ☭... in use Perl or die;
allter
а что за перл? ActiveState?
Strawberry 5.30.1 32-битная версия
источник
17:01пожаловаться#5

АК

Алексей Клименко... in use Perl or die;
Алексей Клименко
Хм…
say 'START';
my $cond = AnyEvent->condvar;
$SIG{INT} = sub {
  say "Ctrl+C";
  $cond->send;
};
$cond->recv;
say 'EXIT';

Не вызвалось.

Видимо, пока выполнение в ->recv, не берёт.
источник
17:01пожаловаться#6

VG

Vadim Goncharov in use Perl or die;
а без AnyEvent - берёт?
источник
17:01пожаловаться#7

АК

Алексей Клименко... in use Perl or die;
Vadim Goncharov
а без AnyEvent - берёт?
Ну вон тот однострочник выше – сработал, вроде.
источник
17:02пожаловаться#8

VG

Vadim Goncharov in use Perl or die;
Алексей Клименко
say 'START';
my $cond = AnyEvent->condvar;
$SIG{INT} = sub {
  say "Ctrl+C";
  $cond->send;
};
$cond->recv;
say 'EXIT';

Не вызвалось.

Видимо, пока выполнение в ->recv, не берёт.
осталось проверить последний вариант - без $cond->send;
источник
17:03пожаловаться#9

АК

Алексей Клименко... in use Perl or die;
Так у меня say не сработало же!
источник
17:03пожаловаться#10

VG

Vadim Goncharov in use Perl or die;
всё равно проверить, мало ли!
источник
17:04пожаловаться#11

a

allter in use Perl or die;
Ещё имеет смысл попробовать с другим евентлупом, но подозреваю, что AE тогда перебор.
источник
17:06пожаловаться#12

VG

Vadim Goncharov in use Perl or die;
непонятно, зачем всё это, если cleanup можно и в END делать
источник
17:06пожаловаться#13

VG

Vadim Goncharov in use Perl or die;
ну, если он только не требует какой-то посылки в сеть и прочего продолжения работы лупа :)
источник
17:08пожаловаться#14

АК

Алексей Клименко... in use Perl or die;
Vadim Goncharov
всё равно проверить, мало ли!
Эм-м…

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:09пожаловаться#15

VG

Vadim Goncharov in use Perl or die;
O___o
источник
17:10пожаловаться#16

VG

Vadim Goncharov in use Perl or die;
а как именно работает?
источник
17:10пожаловаться#17

АК

Алексей Клименко... in use Perl or die;
Выполняется say "Ctrl+C";
Но если убрать signal – то не выполняется вообще.
источник
17:10пожаловаться#18

VG

Vadim Goncharov in use Perl or die;
жесть
источник
17:10пожаловаться#19

АК

Алексей Клименко... in use Perl or die;
Может этот таймаут где-то подкрутить можно?
Меня устроит одна секунда, например.
источник
17:10пожаловаться#20