|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 17 Jun 2004 20:30:07
To : Andrey Egoshin
Subject : Re: Re^2: Как скрипт может узнать о завершении соединения с клиентом?
--------------------------------------------------------------------------------
Andrey Egoshin -> Artem Chuprina @ Wed, 16 Jun 2004 19:27:13 +0400:
AC>> Установить недефолтный обработчик на SIGPIPE. Дефолтный, если я
AC>> правильно понимаю - ignore.
AE> А как в таком случае узнать, где остановились? Hаписал пpостенький
AE> пpовеpочный скpиптик, но он не pаботает. :(
AE> Что я делаю здесь не так? Вываливается на 0, т.е. SIGPIPE пpиходит в
AE> начале.
Сильно подозреваю, что не так в данном случае ОС... В виндах, наверное,
надо пользоваться родными виндовыми средствами, предварительно их изучив.
AE> #!c:/www/Perl/bin/Perl.exe
AE> $nowpos=0;
AE> local $SIG{PIPE}=&pipeend;
AE> print "Content-type:text/html\n\n";
AE> print "<html>\n";
AE> print "<body>\n";
AE> print "<hr><pre>\n";
AE> while(1){
AE> print "$nowpos\n";
AE> $nowpos++;
AE> }
AE> print "<hr></pre>\n";
AE> print "</body><html>";
AE> sub pipeend{
AE> open CRASHLOG, ">crash.log";
AE> print CRASHLOG "the pos is now $nowpos";
AE> die "Pos is $nowpos";
AE> }
AE> Успехов! Andrey Egoshin.
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
