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

 

Рассмотрим принцип работы счетчика посещений. В некотором файле мы храним текущее значение счетчика. Когда пользователь заходит на страницу, мы увеличиваем  это значение, а затем выводим его.

Значение счетчика будем хранить в файле counter.txt

Собственно, текст скрипта:

#!c:\perl\bin\perl.exe
use CGI;
$cgi_obj=new CGI

open (count, "<counter.txt") or die("Ошибка открытия файла");

Открываем файл для чтения (на это указывает префикс "<"). В дальнейшем можно будет использовать файловую переменную count для считывания информации из соответствующего файла (разыменовывающий префикс $ не требуется). Иногда при работе с файлами возникают ошибки, поэтому конструкция  "or die" достаточно полезна.

Подробнее о работе с файлами можно почитать здесь.

$count=<count>;
close count;
$count++;

Считываем значение счетчика из файла и увеличиваем на 1.


open (count, ">counter.txt");
Снова открываем наш файл, на этот раз для записи( на это указывает префикс ">").

print count $count;
сlose count;

Записываем новое значение счетчика в файл и закрываем его.

print $cgi_obj->header(),$cgi_obj->start_html(-bgcolor=>'aliceblue'),
$cgi_obj->center($cgi_obj->h3(
"Счетчик посещений:", $count)),
$cgi_obj->end_html;

Выводим текущее значение счетчика на страницу и завершаем html-документ.

Посмотреть, как работает этот счетчик, можно на этом сайте.