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

Недолго думая приступлю к приведению простейшего исходника и его описанию.

#!usr/bin/perl
#Задание имени файла, хранящего кол-во посетителей:
$counter_file = "counter.dat";
open (COUNT,"$counter_file");#Открытие файла-хранителя для чтения
$countold = ;#Получение данных о кол-ве посетителей
close COUNT;#Закрытие файла-хранителя
$countnew = $countold + 1;#Увеличение кол-ва посетителей на единицу
open (COUNT2,">$counter_file");#Открытие файла-хранителя для перезаписи
print COUNT2 "$countnew";#перезапись обновлённых данных о посетителях
close COUNT2;#закрытие файла-хранителя
#Передача данных браузеру о формате возвращаемых данных:
print "Content-Type: text/html";
#Вывод количества посетителей:
print "Вы $countnew-й посетитель этой странички";

Здесь выше был приведен очень черновой вариант скрипта-счётчика. В этот скрипт необходимо добавить использование функции flock при открытии файлов, т.к. при большой загруженности вашего сайта могут возникать различного рода ошибки! Что же касается каких-либо добавок к этому скрипту с точки зрения его возможностей, то необходимо отметить возможность вывода результата в графическом режиме ( каждой цифре соответствует файл-картинка с прорисованной цифрой. Далее число разбивается на цифры и в зависимости от полученного результата выводится набор картинок ).

© Upmark.ru