Счетчик посещений на Perl

Автор: Topol Суббота, Август 11th, 2012 Нет комментариев

Рубрика: Perl

Счетчики предназначены для учета количества посетителей на Ваш сайт. Кроме этого на счетчик можно возложить операции ведения статистики, учет хостов откуда пришли посетители и т.д.

Данный пример демонстрирует работу простого текстового счетчика с ведением списка IP адресов посетителей.

#!/usr/bin/perl $dat_file="counter.dat"; # Файл счетчика $log_file="counter.log"; # Файл списка IP # Открывем файл счетчика и считываем текущий счет # в переменную $count open(DAT,"$dat_file"); $count=<DAT>; close(DAT); chop($count) if $count =~ / $/; # Удаляем символ конца строки $count++; # Увеличиваем счетчик # Записываем данные обратно в файл open(DAT,">$dat_file"); print DAT ("$count"); close(DAT); # Выводим счет print ("Content-type: text/html "); print ("$count"); # Записываем IP посетителя open(LOGFILE,">>$log_file"); print LOGFILE ("$ENV{'REMOTE_ADDR'} "); close(LOGFILE);


Для работы этого скрипта необходимо создать два файла, для ведения счета и для списка IP. В файле счета необходимо установить начальное значение счетчика, сделать это можно в любом текстовом редакторе.

Источник:  internet-technologies.ru

Оставить комментарий

Чтобы оставлять комментарии Вы должны быть авторизованы.

Похожие посты