Базы данных. Пономарев А.А. - 53 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$input{$name} = $value;
}
# Сохранение введенного имени в файл
$targetfile = "/usr/local/www/names.html"; # <-- ПРОВЕРЬТЕ
ЭТО
#Открывается указанный файл для записи
open (NAMEFILE, ">>$targetfile");
#Вводятся принятые данные
print NAMEFILE "<h3>Имя: ",$input{'user_name'},"</h3>\n";
#Ввод HTML тэга
print NAMEFILE "<p><hr><p>\n";
#Закрытие файла
close (NAMEFILE);
#Вывод тела формы
print "Content-Type: text/html\n\n";
#Вывод ссылки на файл с сохраненными данными
print "<h3>Спасибо, что заполнили форму</h3>\nНажмите ";
print '<a href="http://localhost/names.html">сюда</a>';
print ", чтобы увидеть введенные данные.\n";
Шаг 3 - Тестирование скрипта
Проверив скрипт визуально на наличие - отсутствие ошибок ";" в
конце строк, наличие непарных скобок и кавычек и т.п., запустите скрипт для
проверки прямо из командной строки, перейдя предварительно в каталог cgi-
bin. Вот некоторые примеры того, как это делается:
d:\usr\local\perl\perl.exe testform.pl
Если в скрипте содержатся ошибки, то Вы увидите сообщение типа
syntax error at testform.pl line 18, near "open"
Execution of testform.pl aborted due to compilation errors.
В этом случае проверьте текст около указанной строки. Помните, что
причина ошибки может быть выше на несколько, иногда достаточно много
строк. Исправленный скрипт сохраните и тестируйте так до тех пор, пока он
не выдаст корректных выходных данных.
Шаг 4 - Тестирование скрипта с формой
Если скрипт работает сам по себе, Вы можете оттестировать его с
формой:
1. Убедитесь, что web-сервер запущен.
2. Запустите ваш браузер.
53

Страницы