Счетчик посещений на Perl
Счетчики предназначены для учета количества посетителей на Ваш сайт.
Кроме этого на счетчик можно возложить операции ведения статистики, учет
хостов откуда пришли посетители и т.д.
Данный пример демонстрирует работу простого текстового счетчика с
ведением списка IP адресов посетителей.
#!/usr/bin/perl
$dat_file="counter.dat";
# Файл счетчика
$log_file="counter.log"; # Файл списка
IP
# Открывем файл счетчика и считываем текущий счет
# в
переменную
$count
open(DAT,"$dat_file");
$count=;
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. В файле счета необходимо установить
начальное значение счетчика, сделать это можно в любом текстовом
редакторе.
Источник: www.web-support.ru
|
