Настают такие времена, когда вашу страничку необходимо как-то преобразить (и если вы всерьёз решили заняться web сайтом, то эти времена наступают довольно быстро). На крупных страничках(да уже и не только на крупных) существуют гостевые книги, счётчики, форумы, чаты, и многое другое. Конечно, можно воспользоваться уже готовыми всеми этими вещами, в интернете их полно, но если вы хотите сделать всё сами, не от кого не зависеть, или просто вам надоела бесконечная реклама, которую вставляют бесплатные ресурсы на вашу страницу, то пожайлуста, пользуйтесь ими. Эта статья для тех, кто хочет это ВСЁ сделать САМ. Я подробно расскажу, как сделать это всё самому, при помощи cgi - программированию на perl.
Для того, чтобы у вас не было проблем в дальнейшем, вам необходимо иметь:
готовую страницу в интернете поддерживание на сервере cgi (это можно узнать при регистрации или у администратора. Наиболее известные, бесплатные хостинги, поддерживающие cgi: www.holm.ru; www.wallst.ru); желание и терпение.
Ничего сложного здесь нет. Хотя первый раз придётся немного посидеть, чтобы в этом разобраться. Но дело стоит свеч, иначе вы бы не читали данную статью. Теперь перейдём к делу. Вы здесь, чтобы разобраться, как устроены счётчики, чаты, форумы и т.п. А я здесь - чтобы вам это рассказать и показать. Ну что готовы попасть в мир программирования, мир реальности и надежд? Ну тогда приступим к созданию своей первой программы. В данном случае - простейшего счётчика посещения на Perl. Всё, что необходимо для этого - это сервер, с поддержкой cgi скриптов и SSI. Итак, поехали...
Открываем текстовый редактор - Блокнот(Пуск - Программы - Стандартные) и сохраняем файл под именем mycounter.cgi в папке с файлом, где будет находится наш счётчик, и при помощи буфера обмена, переносим туда следующий код:
#!/usr/bin/perl
$namefile="mycounter.txt";
open (COUNTFILE, "$namefile");
$count = <COUNTFILE>;
close(COUNTFILE);
chomp ($count);
$count=$count + 1;
open (COUNTFILE, ">$namefile");
print COUNTFILE "$count";
close(COUNTFILE);
print "Content-Type: text/html\n\n";
print "$count";
exit;
Изменяем точный путь к perl (чаще всего это #!/usr/local/bin/perl , но может быть и #!/usr/bin/perl . Нужно уточнить у администратора)
После сохранения создайте ещё один файл в той же папке, и назовите его mycounter.txt . Больше с ним делать ничего не нужно - пусть он останется пустым. Теперь наступает самый главный, и ответственный момент: перенос файла на сервер. Это делается достаточно просто.
