Есть:
use IO::Socket;
$SET_port=4141;
$bind=IO::Socket::INET->new(Listen=>5,Reuse=>1,LocalPort=>$SET_port);
while($client=$bind->accept()) {
unless(fork()){
$client->recv($data,2048);
[здесь идёт обработка полученных данных]
while (1){
[здесь мы генерируем новые данные, кои будем передавать]
if (__ЧТО?__){$client->send($la_la_rezult);}else{&zacehlit(); exit;}
} # while (1)
} # unless(fork())
} # while($client=$bind->accept())
Суть задачи - определить, что клиент зацепившийся открытый порт (в данном случае 4141) ещё не закрыл соединение, перед тем как передавать ему данные и если прикрыл, то вызвать "zacehlit()".
То есть что должно быть вместо "__ЧТО?__"?
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on
04-Ноя-05, 20:28 (MSK)
