siverko (siverko) wrote in ru_perl,
siverko
siverko
ru_perl

Linux, signals

Господа перлознаи, всем два раза ку.
Столкнулся с проблемой на Линуксах:
- скрипт последовательно отключает и включает порт на свитче и на каждом шаге проверяет рэйт на подключенных к нему устройствах(для того чтобы узнать как происходит переключение ввода/вывода);
- соответственно в бэкграунде крутится демон реализующий sysread и syswrite(верификация записанной псеводо-случайной последовательности);
- после отключения порта ввод/вывод "останавливается" секунд на двадцать, а фактически - виснет весь процесс;

Задача - достучаться да зависшего процесса.

Обычные сигналы срабатывают только после "отлипания" процесса.
Финт ушами с алармом также не работает: 
while ( 1 ) {
     eval {
          local $SIG{ALRM} = sub { die "restart"; };
          alarm 1;
          last if ( ! $self->read_write($io) );
    };
    last if ($@ and $@ =~ /restart/);
  }
'KILL' не перехватывается, не блокируется и не игнорируется - просто прибивает процесс. Соответственно я теряю всю информацию собранную обьектом ввода/вывода.

У кого-нибудь есть идеи как реализовать эту задачу?

Спасибо.
Subscribe
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 5 comments