Perl - статьи


Гостевая книга из Perl'овки


Дмитрий Лялюев,

Многие начинающие веб-мастера ставят на свои сайты гостевые книги из бесплатных сервисов. Но как же хочется иметь свою собственную!

Собственная гостевая книга, со своим дизайном… Со своим дизайном. Что ж, на самом деле это вовсе не так сложно, как кажется. Давайте разберемся, как написать простую гостевую книгу на Perl.

Итак, прежде всего создаем файлик с именем guestbook.pl. Первая строка нашей гостевой книги будет:

#!/usr/bin/perl

Именно с такой строки начинается любой Perl-скрипт... Или почти с такой, в зависимости от того, где на сервере расположен Perl-интерпертатор.

Затем определим точный путь и имя файла, в котором будут храниться записи гостей нашего сайта:

$file = "/path/to/gb.txt";

Теперь укажем имя файла, из которого будет вызываться скрипт:

$html_file = "guest.shtml";

Так, хорошо… Но только нужно напомнить браузеру, что мы будем выводить HTML-текст, т.е. страничку. Это делается с помощью следующей строки:

print "Content-Type: text/html\n\n";

Обратите внимание на прописные буквы "C" и "T". Они должны быть именно такими, так как это имеет принципиальное значение для браузера.

Для обработки данных, которые передаются из формы, задействуем стандартный модуль CGI:

use CGI qw (:standard); $q=new CGI ();

Затем читаем содержание элемента формы action и заносим эти данные в переменную $action:

$action = $q->param (action);

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

&post if ($action eq 'post');

Обратите внимание, что &post - это вызов подпрограммы post, которая и записывает новое сообщение в файл. Ею мы займемся вплотную чуть позже.

А пока что нам еще нужно вывести страничку с уже оставленными сообщениями. Для этого мы - опять же, немного погодя - создадим другую подпрограмму - view. А в этом месте кода нам необходимо ее вызвать. Делается это следующей строкой:

&view;




Начало    Вперед



Книжный магазин