VPF::IO::Socket::INET ограничение количества клиентов

gawriil

Дата 9.5.2010, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Уважаемые знатоки!
Есть-ли какая-нибудь возможность определить количество клиентов подключенных к сокету в данное время?

arto

Дата 9.5.2010, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

какому сокету?

gawriil

Дата 9.5.2010, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Цитата(arto @ 9.5.2010, 20:03)

какому сокету?

OC: Windows
ActivePerl - 5.10.0(bild 1004)

Имеется клиент и сервер (IO::Socket::INET).

Сервер:

Код


use IO::Socket;
my $socket = IO::Socket::INET->new( LocalAddr => 'localhost',
                                    LocalPort => 2222,
                                    Proto     => 'tcp',
                                    Listen    => 128,
                                    Type      => SOCK_STREAM ) || die "$!";

while (1) {
    $socket->autoflush(1);
    while ( my $session = $socket->accept() ) {
       =
       =         Код
       =
    }    # -----  end while  -----
}    # -----  end while  -----

При подключении клиента к сокету, на сервере хочу знать сколько клиентов уже подключено к серверу.

Это сообщение отредактировал(а) JackYF - 9.5.2010, 21:44

shamber

Дата 9.5.2010, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

gawriil,

Код


while (1) {
    $socket->autoflush(1);
    while ( my $session = $socket->accept() ) {
$clientcount++; # не оно?
       =
       =         Код
       =
    }    # -----  end while  -----
}    # -----  end

Это сообщение отредактировал(а) shamber - 9.5.2010, 22:12

gawriil

Дата 9.5.2010, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Цитата(shamber @ 9.5.2010, 22:11)

$clientcount++; # не оно?

Да конечно можно и так(спасибо за ответ), но я имел ввиду какие-нибудь встроенные функции

shamber

Дата 9.5.2010, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

gawriil, думаю нет, но вы почитайте документацию.

DurRandir

Дата 10.5.2010, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: 14
Всего: 17

Никакой встроенной функции не может быть. Потому что тот сокет, который слушает через listen(), и сокеты, принятые через accept() - совершенно не связанные сокеты. Вы можете закрыть первый, но 2е, при этом, будут продолжать работать.

gawriil

Дата 11.5.2010, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Решил следующим образом. На сервере запустил счетчик. При организации сессии, сервер возвращает количество активных клиентов. А дальше уже на самом клиенте принимаю решение, что делать. Спасибо всем за участие.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »