информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Сетевые кракеры и правда о деле ЛевинаЗа кого нас держат?Страшный баг в Windows
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Очередное исследование 19 миллиардов... 
 Оптимизация ввода-вывода как инструмент... 
 Зловреды выбирают Lisp и Delphi 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / web building
Имя Пароль
если вы видите этот текст, отключите в настройках форума использование JavaScript
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
не могу сделать обработку формы на 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'};
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2025 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach