|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Egoshin 2:5052/12.13 16 Jun 2004 20:27:13
To : Artem Chuprina
Subject : Re^2: Как скрипт может узнать о завершении соединения с клиентом?
--------------------------------------------------------------------------------
08 Июн 04 22:49, Artem Chuprina писал Andrey Egoshin:
AC> Установить недефолтный обработчик на SIGPIPE. Дефолтный, если я
AC> правильно понимаю - ignore.
А как в таком случае узнать, где остановились? Hаписал пpостенький
пpовеpочный скpиптик, но он не pаботает. :(
Что я делаю здесь не так? Вываливается на 0, т.е. SIGPIPE пpиходит в начале.
#!c:/www/Perl/bin/Perl.exe
$nowpos=0;
local $SIG{PIPE}=&pipeend;
print "Content-type:text/html\n\n";
print "<html>\n";
print "<body>\n";
print "<hr><pre>\n";
while(1){
print "$nowpos\n";
$nowpos++;
}
print "<hr></pre>\n";
print "</body><html>";
sub pipeend{
open CRASHLOG, ">crash.log";
print CRASHLOG "the pos is now $nowpos";
die "Pos is $nowpos";
}
Успехов! Andrey Egoshin.
--- GoldEd+386 1.1.4.7
* Origin: <DEFAULT> (2:5052/12.13)
Вернуться к списку тем, сортированных по:
|
