Главная страница статей --> Советы по фотошопу, графике и хитрости в построении php кода

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

Источник: realcoding.net

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

Данный пример демонстрирует работу простого текстового счетчика с ведением списка 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. В файле счета необходимо установить начальное значение счетчика, сделать это можно в любом текстовом редакторе.



Похожие статьи:
- Время выполнения SQL запросов
- Парсер на РНР - это возможно!
- Регулярные выражения, Часть II
- Аутентификация пользователей через Web интерфейс
- JavaScript и GET-параметры
- Создание пакетов и модулей в Perl
- Пишем свой чат
- Фильтруй базар
- Антиспамовые фильтры
- Раскрутка сайта своими силами
- 10 советов для успеха в Гугле
- Легкая навигация на сайте
- Практические рекомендации по раскрутке сайта


Оглавление | Обсудить на форуме | Главная страница сайта | Карта сайта |

Контакты
Редакция:
[0.001]