Яндекс цитирования
 

CGI/PERL : практика программирования

 

[ В начало раздела ]

Счетчик посещений (текстовой)

Давайте рассмотрим по-этапно, как создать на Perl текстовой счетчик.

Алгоритм работы со счетчиками прост:

1. создаем файл, в котором будем сохранять число посещений 2. при каждом запуске программы - считывать значение, увеличивать его и записывать обратно в файл

Ниже представлена реализация этого алгоритма на Perl.

  # константы
  $HOME_DIR = "/home/user/cgi-bin/";
  $counter_file = $HOME_DIR . "counter.txt";

# открываем файл счетчика open (COUNTER, $counter_file); $count = <COUNTER>; close COUNTER;

$count++; # увеличиваем значение

# запись обратно в файл open (COUNTER, ">$counter_file"); print COUNTER $count; close COUNTER;

# вывод в броузер print $count; exit;

Для работы счетчика необходимо, чтобы на Вашем сервере был был установлен Perl 4 или 5. А также - поддержка Вашим сервером SSI. Как использовать этот счетчик? Измените расширение страницы, на которую Вы хотите установить счетчик на shtml. В Ваш документ вставьте следующий код: для Windows-серверов:

  <!--#exec cgi="/cgi-bin/counter.pl" -->
для Unix-серверов:
  <!--#include virtual="/cgi-bin/counter.pl" -->

Используйте!

© Долгов С.В. 21.06.00

 

[ В начало раздела ]


 

 

Все для web-дизана!!! Бард-Путеводитель Много Всего CGI-Гид. Лучшие скрипты... WDH - WebDesignHelp - CGI, JAVA, APPLETS, TOP100! Раскрутка, увеличение посещаемости и индекса цитируемости в поисковых системах.

© 2000-2002 Долгов Сергей

dolgov_sergei@mail.ru

X