список он-лайн посетителей

[Nudlok]

Как с помощью Perl можно организовать список он-лайн посетителей данной страницы .. так же как ето реализовано на PHP в phpNuke  ...?

[Меняздесьдавнонет]

как это сделано в в phpNuke я не знаю, но принцип стандартный.
писать в файл посетителя и время обращения.
всех, у кого время больше трёх минут - выкидывать, и считать оставшихся - вот тебе и нужная цифра.

[Nudlok]

... спасибо

[Nudlok]

у кого больше трёх минут выкидывать ...
а если человек засиделся...и его выкинет, то уже будет неверная цифра

[glebushka]

Nudlok, да ты умён. И что?

[Меняздесьдавнонет]

Nudlok
если не засиделся, а ушёл через 10 секунд, то целых две минуты и 50 секунд после этого инфа будет неверная.
И что? Тебе за эту инфу деньги платят? Требукется точность, как в госбанке?
Не всё ли равно, какая там стоит фифра, если нужна она исключительно для морального онанизма?

[Psixolog]

# Отображаем список посетителей.
<h5 align=center><font color="000080">Кто в онлайне.</font></h5>
HTML

# Здесь я предусмотрел очистку файла 
online.txt через 3 минуты после бездействия чата.
# Сравниваем время модификации файла с текущим временем.
$cur_time=time;
$stat3=(stat ("$online"))[9];
$diff3=$cur_time-$stat3;        # Вычисляем разность

# Если разность более 180 секунд, перезаписываем файл пустым значением.
if ($diff3>180) {
open (NET,">$online");
print NET "";
close (NET);
}