[perl] Как победить Ctrl+C?

Проверять код возврата?

Вариант. Но у system с этим какие-то трудности. Возможно потому что у баша код возврата обратен. Получается вот такой код:

system($cmd) and die;

А возможности выполнять левую программу в рамках того же процесса нет?

А ловить сигнал SIGINT (или как оно там) нельзя что-ли? Или в это момент его ловит исполняемая программа а не сам perl?

полагаю, что если вызов происходит через system(), то ловит именно та программа. Придётся скрипт переписывать с fork() и wait().

Судя по всему. Мне думается что это выглядит так: я запускаю скрипт который живёт в процессе. System порождает новый процесс, который в добавок ко всему ещё и ведёт себя как последний баш (из этого делаем вывод, что он просто порождает баш в котором и исполняется программа и возвращает то что ему вернул этот баш). Когда я нажимаю Ctrl+C, сигнал перехватывает программа, которая в этот момент работает. Я могу поставить проверку кода возврата, но как уже сказано выше у баша и у перла они строго противоположны.

Почему противоположны? В системе это число, у баша - булеан. Просто баш по-своему отображает числа на булеаны :)

Так чем тебе не нравится system and die? Для наглядности можно system==0 and die, как раз как в примере из "perldoc -f system".

Кажется надо запускать программу через open2 - тогда она не будет иметь никакого отношения к терминалу и ^C получит именно ваш скрипт, который его имеет.

Да, а запущенная программа умрет т.к не сможет писать в канал.

Хотя может и не умереть, думаю что в обработчике SIGINT стоит принудительно послать всем порожденным процессам что-то вроде SIGTERM.

Спасибо. Я уже победил сырость. Если убивается программа запускается функция (такой правильный die), если скрипт ловит SIGINT запускается она же.