Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
не могу сделать обработку формы на perl'e ... помогите кто силен, plz 13.11.04 05:29
Автор: name01 Статус: Незарегистрированный пользователь
|
Здравствуйте, проблема в следующем -
у меня есть форма и в ней один input text и 1 button (submit)
надо надо скрипт который бы обрабатывал данную форму следующм образом - когда вводишь скажем 234 в поле, ну просто число, и нажимаешь кнопку субмит то скрипт бы искал в папке TEMP скажем файл с именем 234.html и если нашел то выдавал его, а если файла такого нет как указано в поле формы то редирект на файл error.html ... я так подозреваю что скрипт не большой а написать все равно не могу так как не программист..
если у кого что есть похожее или кто то что то знает помогите пожалуйста - ada@mail.ru, спасибо.
или здесь отпишите код или линк на похожий скрипт..
|
|
code 13.11.04 11:31
Автор: Heller <Heller> Статус: Elderman
|
#!/usr/bin/perl
use CGI qw/:standart/;
$name=new CGI;
$name=$name->param('xxx');
#Вместо xxx поставь имя текстового поля
$name =~/[<>\|\-&\.\\\/\0]/g;
open (FH,"temp/$name.htm") or open (FH,"error.htm");
print "Content-type: text/html\n\n";
while (<FH>) {print}
close FH;
А вообще очень рекомендую выкачать откуда-нибудь пакет cgi-lib.pl - а то этот CGI.pm как-то не всегда корректно срабатывает.
С cgi-lib.pl строчки 2-4 надо будет заменить на следующее:
require 'cgi-lib.pl';
&ReadParse(*in);
$name=$in{'xxx'};
|
|
|