VPF::Сигналы в perl - Форум программистов

zedik38

Дата 6.9.2014, 08:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 11.12.2011

Репутация: нет
Всего: нет

Подскажите пож-та,
если 2 сигнала надо обрабатывать определенным образом каждый, а все остальные одинаково, то на 1й своя подпрограмма, на 2ой своя, а вот обработку всех остальных как-либо можно объединить не перечисляя каждый?

tzirechnoy

Дата 6.9.2014, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1173
Регистрация: 30.1.2009

Репутация: нет
Всего: 16

Вы про какие сигнал? Если про unix/posix -- то мысль одинаково обрабатывать SIGILL/SIGCONT/SIGALRM мне кажэтся несколько эклектичной. Хотя, в perldoc perlvar показан вполне очевидный способ сделать это простым перечислением списка "всех остальных".

А если про какие-то другие -- то Вы не написали, про что Вы вообще.

Pfailed

Дата 6.9.2014, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

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

Код


#!/usr/bin/perl

use strict;
use IPC::Signal;

IPC::Signal::sig_translate_setup();
use Data::Dumper;

for my $sig (@IPC::Signal::Sig_name) {
    next if $sig eq 'HUP' || $sig eq 'INT';
    
    $SIG{$sig} = sub {
        warn "$sig catched";
        exit;
    };
}

$SIG{INT} = sub {
    warn "SIGINT";
};

$SIG{HUP} = sub {
    warn "SIGHUP";
};

warn $$;

sleep while 1;

--------------------

I'm on CPAN
I'm on github

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »