#запрос на получение списка клиентов
if ($message[0] eq "list"){
#println("query list users");
open (ct,"client_table.txt");
$list="list of users:\n";
while (<ct>){
chomp;
$list=$list.$_."\n";
}
close (ct);
send (CLNT,$list,0);
last SWITCH;
}
Листинг пользователей чата (на perl)
Доброго времени суток. Подскажите пожалуйста ответ на небольшой вопрос :)
Есть некое подобие сетевого чата на перле. Если интересует, он в прикрепленном фаиле. Есть сервер и клиент.В клиенете есть стандартные функции, например вывод даты и времени на машине, где стоит сервер.
Там присутствует функция вывода списка пользователей:
Будьте пожалуйста так признательны, показжите как добавить в листинг пользователя, напротив каждого юзверя время его соединения с сервером. Я вам буду очень признателе за это.
Есть некое подобие сетевого чата на перле. Если интересует, он в прикрепленном фаиле. Есть сервер и клиент.В клиенете есть стандартные функции, например вывод даты и времени на машине, где стоит сервер.
Там присутствует функция вывода списка пользователей:
Код:
Будьте пожалуйста так признательны, показжите как добавить в листинг пользователя, напротив каждого юзверя время его соединения с сервером. Я вам буду очень признателе за это.