Форум работает только в режиме чтения!
Регистрация новых пользователей закрыта.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
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; #отладочная строка, поднее будет заменена кодом обработки строки запроса
}
}#конец обработки реквеста
}#конец обработки клиента
}
}
Вторым я тебя спрошу про эти строки:
my $data = \'\';
my $rv = $client->recv($data, POSIX::BUFSIZ, 0);
unless (defined($rv) && length $data)
и хочу узнать нафига тебе unless если length $data всегда равен 0?
Ты понимаеш что вообще происходит в этом коде?
foreach $client ($select->can_read(1))
{
if ($client == $server)
{
#обработка событий подключения
my $new_client = $server->accept();
if(defined($new_client))
{
print "Client accepted\\n";
nonblock($new_client);
$select->add($new_client);
$logon{$new_client}="";
$nick{$new_client}="";
#присвоение остальных переменных
}
}
else
{
my $data = \'\';
my $rv = $client->recv($data, POSIX::BUFSIZ, 0);
unless (defined($rv) && length $data)
{
#очистка переменных
#delete $inbuffer{$client};
#delete $outbuffer{$client};
#delete $ready{$client};
$select->remove($cllent);
delete $client;
print "Client closed\\n";
next;
}
else
{
my $request = $client->get_request();
if (defined($request))
{
if ($request->method eq \'GET\')
{
#обработка $Id.html
}
else
{
#выдать сообщение о неверном запросе и записать в лог ошибку.
}
}
}
}
}
