перехватить Ctrl+c

[sergeyfromkomi]

Добрый день! Как на winxp и ActivePerl5, перехватить ctrl+c (остановку скрипта),
до этого момента(до обработки ctrl+c) мне нужно успеть в скрипте сделать :
"$session->close;" (закрыть telnet сессию).

Заранее спасибо !!!

 

[Vovochka]

Ссылка скрыта от гостей

Не работает?

 

[sergeyfromkomi]

Ссылка скрыта от гостей

Не работает?

больше спасибо за ответ. Но я не знаю куда поместить эту строку чтобы скрипт постоянно отслеживал это событие... (я не программист, я cisco учу....)

 

[Vovochka]

В самое начало

 

[sergeyfromkomi]

перехватывает.....на программа всё равно закрывается
можно ли программно запретить закрытие консоли....

 

[Vovochka]

Что-то я ничего не понял?
Вообще запретить убийство проги?
Ну попробуйте добавить:

$SIG{KILL} = 'IGNORE';
$SIG{TERM} = 'IGNORE';

Но стоит ли оно того?