|
Web - кодинг: Perl:
Гостевая на Perl
Источник:
E-mail: info@citforum.ru
Автор: Маслов Владимир Викторович
Наиболее типичным примером программирования является Гостевая книга.
В этой статье мы с Вами напишем простенькую Гостевую книгу, записывающую данные
в файл.
Для начала немного об самом скрипте, реализован он в виде одного файла.
Как он будет работать. При запуске скрипта будет выводиться список сообщений, а
в конце будет форма для записи нового сообщения. Скрипт будет проверять наличие
параметров запроса, если скрипт получает данные из формы, он их записывает в
файл и производит редирект, на список сообщений.
|
#!/usr/bin/perl
use strict; # Директива для ужесточения стилистического контроля
use CGI; # подключаем модуль CGI
my $gb_path="gb.dat"; #Файл, где будут храниться записи
my $query=new CGI; # создаем объект CGI
#Если запрос нулевой то выводим список сообщений
if(!$query->param){
#Заголовок
print $query->header,$query->start_html('Записи в
гостевой книге');
#Открываем файл
open(GB_DAT,"$gb_path")|| die("Невозможно
открыть файл - $gb_path");
my @lst=<GB_DAT>; # Помещаем строки в массив
#Выводим данные
for(my $i=@lst-1;$i>=0;$i-=3){ # пробегаемся по всем
строкам
# выводим имя автора как ссылку на
его e-mail
print "<hr>Автор: <a
href=mailto:$lst[$i-1]>$lst[$i-2]</a><br>";
# выводим сообщение
print
"Сообщение:<br>$lst[$i]<br>";
}
#Закрываем файл
close(GB_DAT);
#Вывод формы записи сообщения
print <<HTML;
<form action=gb.cgi method=post>
Ваше имя: <input type=text name=aname><br>
E-mail:<input type=text name=email><br>
Сообщение:<textarea name=mess></textarea><br>
<input type=submit value=Записать><input type=reset
value=Очистить>
</form>
HTML
print $query->end_html; # конец html-документа
}else{
#Обработка данных из формы
#Открываем файл для дописи
open(GB_DAT,">>$gb_path")||
die("Невозможно открыть файл - $gb_path");
# Блокируем файл для записи другими пользователями
flock(GB_DAT,2)|| die("Невозможно заблокировать файл
- $gb_path");
#записываем данные
print GB_DAT $query->param('aname'),"\n";#
Имя записавшего
print GB_DAT $query->param('email'),"\n"; #
E-mail
my $message=$query->param('mess'); # считываем
сообщение
$message=~tr/\r\n/ /; #Заменяем возвраты каретки на
пробелы
print GB_DAT "$message\n"; # Записываем
сообщение в файл
#Закрываем файл
close(GB_DAT);
#Перенаправляем пользователя на список
print $query->redirect('gb.cgi');
}
|
Данные записываются в файл указанный в переменной $gb_path. Для работы
необходимо создать файл указываемый в gb_path и установить ему права на
запись (для Unix).
Зачем нужна блокировка файла при записи?
функция flock блокирует файл для доступа другими пользователями, чтобы
не произошло неразберихи при записи, если, допустим, к данному скрипту
одновременно обратились несколько пользователей и один начал запись сообщения,
когда как другой пользователь в это время тоже записывает сообщение, может
возникнуть ситуация когда их записи перепутаются, какой будет результат, думаю,
вы поняли. Для этого и блокируется файл.
Замечания по работе скрипта...
1. Скрипт носит демонстрационный характер и содержит минимум форматирования.
2. Цель написания данного скрипта заключается в демонстрации обработки форм и
записи результатов в файл.
3. Данный скрипт проверен на Apache под операционными системами Win2000 и
FreeBSD.
|
