Perl для веб-мастера

Если вы набирали текст в Perl Builder, то, выбрав в меню Run/Debug > Check Syntax With -w Flag, сможете сразу проверить скрипт на наличие ошибок. Если ошибки присутствуют - то Perl Builder выдаст соответствующие сообщения с номером строки, в которой содержится ошибка.
Теперь с помощью FTP-клиента скопируйте оба файла в cgi-bin-директорию своего сервера. Отметим, что делать это надо в режиме ASCII. После этого установите права доступа (команда CHMOD) для count.cgi - 755, а для count.txt - 666. Осталось вставить вызов скрипта в HTML-страницу. В том месте страницы, где вы хотите увидеть счетчик посещений вставьте строку:

где /cgi-bin/count.cgi - полный путь к файлу скрипта от корневой директории вашего сайта. Т. е. если полный путь к скрипту выглядит как http://your-domen.com/cgi-bin/count.cgi, то в вызове скрипта пишем /cgi-bin/count.cgi.
Теперь можно загрузить страницу на сервер и открыть ее в браузере. Вы увидите цифры - показания счетчика, увеличивающиеся при каждом вызове страницы. Осталось разобраться, что же мы такое сделали.
Чтобы вы хоть немного могли понимать, о чем идет речь, предлагаю некоторые начальные сведения о том, "что есть что в Perl".
Имена скалярных переменных всегда начинаются со знака "$". Например: $ind. Скалярная переменная - это переменная, содержащая только одно значение. В отличие от массива (списка), в котором содержится множество значений. Имя массива всегда начинается со знака "@". Например: @ind.
Итак, о том, что первая строка скрипта указывает, где искать интерпретатор Perl, вы уже знаете.
Строка:
$namefile="count.txt";
помещает в переменную $namefile имя файла count.txt;
open (COUNTFILE, "$namefile");
открывает файл count.txt для чтения, связывая название файла с дескриптором COUNTFILE;
$count = ;
считывает из файла последнее значение счетчика. Так как в первый раз считывать нечего, то в переменной $count появится значение "0";
close(COUNTFILE);
закрывает файл;
chomp ($count);
если в конце считанной строки присутствует символ перевода строки (в Perl имеет вид "n") - он будет удален. В нашем случае такого символа нет. Но лучше перестраховаться, чем потом искать непонятные ошибки.
$count=$count + 1;
увеличиваем значение счетчика на единицу. Эту операцию можно также записать вот так:
$count++;
но для наглядности будем использовать предыдущий вариант.
open (COUNTFILE, ">$namefile");
откроем файл count.cgi для записи, уничтожив (символ ">") его содержимое
print COUNTFILE "$count";
запишем в файл новое значение счетчика
close(COUNTFILE);
закроем файл
print "Content-Type: text/htmlnn";
print "$count";
передаем новое значение счетчика в качестве результата работы скрипта, чтобы сервер включил это значение в состав HTML-страницы - в том месте, где находится строка
exit;
конец выполнения программы (без этого можно обойтись, но почему бы не следовать традициям).

Продолжение статьи: ч.1 Продолжение статьи: ч.2 Продолжение статьи: ч.3 Продолжение статьи: ч.4 Продолжение статьи: ч.5

Другие статьи по теме:

- Perl для чайников от ns
- повышение индивидуального мастерства дизайнера
- практическое применение perl-скриптов
- аутентификация пользователей через веб-интерфейс
- введение в perl

Другие голосования

Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.

• Как выбрать браузер
• Средства структурного анализа и проектирования систем
• Классификация case-средств
• Case-технология проектирования программного обеспечения информационных систем
• Технология intranet
• Технологии Internet
• Средства доступа к базам данных
• Средства быстрой разработки прикладных программ
• Объектно-ориентированный подход к созданию программных средств
• Этапы проектирования при разработке программного продукта