16.18. Перехват Ctrl+C

Проблема

Требуется перехватить нажатие Ctrl+C, приводящее к остановке работы программы. Вы хотите либо игнорировать его, либо выполнить свою собственную функцию при иолучении сигнала.

Решение

Установите обработчик для SIGINT. Присвойте ему IGNORE , чтобы нажатие Ctrl+C игнорировалось:

$SIG{INT} = IGNORE ,

Или установите собственную подпрограмму, которая должна реагировать на Ctrl+C:

$SIG{INT) = \&tsktsk, sub tsktsk {

$SIG{INT} = \&tsktsk, # Cm Написание обработчика сигнала warn \aThe long habit of living mdisposeth us for dying \n ,

Комментарий

Ctrl+C не влияет на вашу программу напрямую. Драйвер терминала, обрабатывающий нажатия клавиш, опознает комбинацию Ctrl+C (или другую комбинацию, заданную вами в качестве символа прерывания при настройке параметров терминала) и посылает SIGINT каждому процессу активной группы (активного задания) данного терминала. Активное задание обычно состоит из всех программ, запущенных отдельной строкой в командном интерпретаторе, а также всех программ, запущенных этими программами. За подробностями обращайтесь к разделу введения «Сигналы».

Символ прерывания - не единственный служебный символ, интерпретируемый драйвером терминала. Текущие параметры терминала можно узнать с помощью команды stty -а:

% stty -а

speed 9600 baud; 38 rows; 80 columns;

Iflags: icanon isig lexten echo echoe -echok echoke -echonl echoctl

Два сигнала не перехватываются и не игнорируются: SIGKILL и SIGSTOP. Полная информация о сигналах вашей системы и об их значении приведена в странице руководства signal{2>).

> Смотри также-

Раздел «Signals» perlipc{\); страницы руководства sigaction{2), signal(3) и kill{2) вашей системы (если есть).

-echoprt -altwerase -noflsh -tostop -flusho pendin -nokerninfo -extproc

iflags: -istrip icrnl -inlcr -igncr ixon -ixoff ixany imaxbel -ignbrk

brkint -inpck -ignpar -parmrk oflags: opost onlcr oxtabs

cflags: cread cs8 -parenb -parodd hupcl -clocal -cstopb -crtscts -dsrflow

-dtrflow -mdmbuf cchars: discard = "0; dsusp = "Y; eof = D; eol = <undef;>

eol2 = <undef; erase = "H; intr = "C; kill = "U; Inext = "V;>

min = 1; quit = ~\; reprint = ~R; start = "Q; status = <undef;>

stop = ~S; susp = ~Z; time = 0; werase = "W;

В последней секции, cchars:, перечисляются служебные символы. В рецепте 15.8 показано, как изменить в сценарии без вызова программы stty.

> Смотри также-

Страница руководства stty{\) вашей системы (если есть); рецепты 15.8; 16.17.

16.19. Уничтожение процессов-зомби

Проблема

Программа создает порожденные процессы с помощью fork. Зомби накапливаются, забивают таблицу процессов и раздражают системного администратора.

Решение

Если вам не нужно регистрировать завершившихся потомков, используйте: $SIG{CHLD} = IGNORE,

Чтобы следить за умирающими потомками, установите обработчик SIGCHLD с вызовом waitpid;

use POSIX sys wait h",

SSIG{CHLD} = \&REAPER; sub REAPER { my Sstiff;

while (Sstiff = waitpid(-1, &WNOHANG) > 0) { # Обработать Sstiff, если нужно

SSIG{CHLD) = \&REAPER; # Установить .после* вызова waitpid

Комментарий

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

16.19. Уничтожение процессов-зомби 595

можность навсегда покинуть систему) называется «чисткой» (reaping). В этом рецепте приведены различные рекомендации но чистке зомби. В процессе чистки используется вызов wait или waitpid. Некоторые функции Perl (конвейерные вызовы орел, system и . . ) автоматически вычищают созданных ими потомков, но при запуске другого процесса с помощью fork вам придется дожидаться его заверщения.

Чтобы избежать накопления зомби, достаточно сообщить системе, что они вас не интересуют. Для этого $SIG{CHLD} присваивается значение IGNORE". Если вы хотите узнать, когда скончался тот или иной потомок, необходимо использовать waitpid.

Функция waitpid вычищает один процесс. Ее первый аргумент определяет идентификатор процесса (-1 означает любой процесс), а второй - набор флагов. Флаг WNOHANG заставляет waitpid немедленно вернуть О, если нет ни одного мертвого потомка. Флаг О поддерживается всеми системами и означает блокирующий вызов. Вызов waitpid в обработчике SIGCHLD (см. рещение) вычищает потомков сразу после их смерти.

Функция wait тоже вычищает потомков, но она вызывается только в б.токиру-ющем режиме. Если случайно вызвать ее при наличии работающих потомков, пи один из которых не умер, программа приостанавливается до появления зомби.

Поскольку ядро следит за недоставленными сигналами посредством битового вектора (по одному биту на сигнал), если до перехода ващего процесса в активное состояние умрут два потомка, процесс все равно получит один сигнал SIGCHLD. Чистка в обработчике SIGCHLD всегда выполняется в цикле, поэтому wait использовать нельзя.

И wait и waitpid возвращают идентификатор только что вычищенного процесса и присваивают его статус ожидания. Код статуса в действительности состоит из двух 8-разрядных значений, объединенных в одном 16-разрядном числе. Старщий байт определяет код возврата процесса. Младшие 7 бит определяют помер сигнала, убившего процесс, а 8-й бит показывает, произошла ли критическая ошибка. Составляющие можно выделить следующим образом:

$exit value = Р » 8, $signal nuni = р & 127; $dumped core = $ & 128;

Стандартный модуль POSIX содержит специальные макросы для выделения составляющих статуса: WIFEXITED, WEXITSTATUS, WIFSIGNALLED и WTERMSIG. Как ни странно, POSIX не содержит макроса для определения того, произошла ли критическая ошибка.

При использовании SIGCHLD необходимо помнить о двух обстоятельствах. Во-первых, сигнал SIGCHLD посылается системой не только при завершении потомка; сигнал также посылается при остановке. Процесс может остановиться по многим причинам - он может ожидать перехода в активное состояние для выполнения терминального ввода/вывода, получить сигнал SIGSTOP (после чего будет ожидать SIGCONT для иродолжепия работы) или быть приостановленным с терминала. Проверьте статус функцией WIFEXITED модуля POSIX, чтобы убедиться, что процесс действительно умер, а не был остановлен:

Но не SPOUSEXITED, даже на PC.