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