https://opennet.ru/openforum/vsluhforumID9/7525.html Добрый день! Как на winxp и ActivePerl5, перехватить ctrl+c (остановку скрипта),<br>до этого момента(до обработки ctrl+c) мне нужно успеть в скрипте сделать : <br>"$session-&gt;close;" (закрыть telnet сессию).<br><br>Заранее спасибо !!!<br> https://opennet.ru/openforum/vsluhforumID9/7525.html#5 Wed, 06 Aug 2008 23:22:16 GMT Ну всегда можно посоветовать почитать man perlport, хотя если используется именно Active Perl, то конечно никаких гарантий дать нельзя. <br> https://opennet.ru/openforum/vsluhforumID9/7525.html#4 Wed, 06 Aug 2008 22:33:11 GMT Возможно это покажется странным, но более дельные советы по винде могут дать на форумах, посвящённых именно винде. Впрочем, если ответы вроде "не знаю, как в Windows, но в UNIX должно работать так..." Вас вполне устраивают, продолжайте спрашивать в конференции "Программирование под UNIX" - здесь всегда рады ответить на любые вопросы. Хоть бы и по астрофизике ;)<br> https://opennet.ru/openforum/vsluhforumID9/7525.html#3 Tue, 05 Aug 2008 09:06:29 GMT &gt;&gt;Можно попробовать - <br>&gt;&gt;$SIG{INT} = sub { do what you need }; <br>&gt;&gt;но нужно убедиться что это работает в Windows ( в Unix точно <br>&gt;&gt;работает, но вот насчет Windows <br>&gt;&gt; у меня уверенности нет) <br>&gt;<br>&gt;не срабатывает... <br><br>Помнитца мне был модуль "sigtrap", попробуй может то ято нужно.<br>Почитай тут http://www.xav.com/perl/lib/sigtrap.html<br> https://opennet.ru/openforum/vsluhforumID9/7525.html#2 Tue, 05 Aug 2008 07:38:36 GMT &gt;Можно попробовать - <br>&gt;$SIG{INT} = sub { do what you need }; <br>&gt;но нужно убедиться что это работает в Windows ( в Unix точно <br>&gt;работает, но вот насчет Windows <br>&gt; у меня уверенности нет) <br><br>не срабатывает...<br><br><br> https://opennet.ru/openforum/vsluhforumID9/7525.html#1 Tue, 05 Aug 2008 05:04:13 GMT &gt;Добрый день! Как на winxp и ActivePerl5, перехватить ctrl+c (остановку скрипта), <br>&gt;до этого момента(до обработки ctrl+c) мне нужно успеть в скрипте сделать : <br>&gt;<br>&gt;"$session-&gt;close;" (закрыть telnet сессию).<br>&gt;<br>&gt;Заранее спасибо !!! <br><br>Можно попробовать -<br>$SIG{INT} = sub { do what you need };<br>но нужно убедиться что это работает в Windows ( в Unix точно работает, но вот насчет Windows <br> у меня уверенности нет)<br><br>