Ошибка в коде

[ZMeY]

NeoNox я прокоментирую каждую строку - ок?

[NeoNox]

конечно

[NeoNox]

кстати, посмотри вот сюда - http://poe.perl.org/?Listing.evolution.select учиться лучше на правильном коде.

[ZMeY]

Код:

use IO::Socket;
use IO::Select;
use HTTP::Daemon;
use POSIX;
use strict;

use Fcntl;

$|=1;

my $port = 5555;
my $max_clients = 35; #SOMAXCONN

my $server = HTTP::Daemon->new(Proto => \'tcp\', LocalPort => $port, Listen => $max_clients) or die "Can\'t make server socket: $@\\n";
nonblock($server);
my $select = IO::Select->new($server);


print "[Chat server runing on ", $server->url, "] \\n\\n";



while (1)
{
my $client; #объявляю переменную

foreach $client ($select->can_read(1)) #по очереди обращаюсь ко всем сокетам объекта селект

{

if ($client == $server) #если сокет является слушающим сервером

{

my $new_client = $server->accept(); #акцепт нового клиента

if(defined($new_client)) #если новый клиент подключен

{

nonblock($new_client); #перевод клиента в неблокирующий режим

$select->add($new_client); #добавляем клиента в общую группу сокетов

print "Client accepted\\n";

}

}

else

{

#это подскажанный код - что он делает сказать не могу, но смысл такой: определение отключившихся клиентов

my $data = \'\';  

my $rv = $client->recv($data, POSIX::BUFSIZ, 0);

if(!(defined($rv) && length $data))#если клиент отключился

{

$select->remove($client); #удаляем клиента из группы соктов

close($client); #закрываем клиента

print "Client closed\\n";

next; #переходим к следующему элементу группы клиентов

}

else #если клиент на связи

{

my $request = $client->get_request();#посылаем запрос

if (defined($request))#т.к. клиент в неблок. режиме - проверяем наличие запроса

{

        if ($request->method eq \'GET\')#если отправлен запрос гет

{

print $request->as_string; #отладочная строка, поднее будет заменена кодом обработки строки запроса

        }

}#конец обработки реквеста

}#конец обработки клиента

}

}
}



sub nonblock {
     my $sock = shift;

     if ($^O eq \'MSWin32\')
     {
           sub FIONBIO { 0x8004667e }
           my $set_it = "1";
           ioctl($sock, FIONBIO, $set_it)
                 or die "Can\'t set the socket non-blocking: $!";
     } else {
           my $flags = fcntl($sock, F_GETFL, 0)
                 or die "fcntl fails with F_GETFL: $!";
           fcntl($sock, F_SETFL, $flags | O_NONBLOCK)
                 or die "fcntl fails with F_SETFL: $!";
     }
}




Вопрос такой - как заменить непрокоментированный блок, таким обрахззом, что бы он возвращал истину, если клиент он-лайн и лож, если отключился

[NeoNox]

То что тебя интересует это чтение из ранее установленного сокета.

[ZMeY]

NeoNox я знаю, что это чтение - я не совсем пониаю, как с его помощью определяется статус клиента...ну да это и не важно!

Как заменить этот код другими кодом, который однозначно будет определять - на связи клиент или уже отключился