The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

Как выполнить в Perl свой код перед аварийным завершением по die().
sub die_sig{
    # Случай вызова die в eval блоке.
    die @_ if $^S;
    # Удаляем лок.
    unlink("$cfg_lock_file");
}
local ($SIG{__DIE__}) = \&die_sig;
 
27.03.2003
Ключи: file, lock, link, perl / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Функции и модули в Perl

 Добавить комментарий
Имя:
E-Mail:
Заголовок:
Текст:




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру