ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Koreshkov Vitalik.                   2:5020/175.2   17 Jun 2001  19:25:11
 To : All
 Subject : Как убрать повторный ввод параметров?
 -------------------------------------------------------------------------------- 
 

 Уважаемые, подскажите, пожалуйста. Есть вот такой скриптец. Что-нить ввожу в
 текстовое поле, нажимаю Submit. Содержимое поля исправно выводится в файл. Hо
 если нажать релоад в браузере, то поле очищается, так как указано -override =>
 1, а в файл повторно выводится предыдущее содержимое текстового поля. Как бы
 сделать так, чтоб после нажатия Submit и вывода содержимого поля в файл его
 значение (значение текстового поля ну или param('text')) сбрасывалось и
 повторно в файл не сыпалось)?
 #!/usr/bin/perl -w
 use CGI;
 $co = new CGI;
 print $co->header,
 
 $co->start_html (
 
   -title => 'CGI',
   -author => 'My',
   -meta => {'keywords' => 'CGI Perl'},
   -BGCOLOR => 'white',
   -LINK => 'red'
 ),
 
 $co->center($co->h1('Hi!')),
 
 $co->startform;
 
 print "Your name: ",
 
 $co->textfield(
 
   -name => 'text',
   -default => '',
   -override => 1
 ),
 
 $co->p,
 $co->submit (
 
   -label => "Submit"
 ),
 
 $co->endform;
 
 if ($co->param('text') ne '') {
 print "You write: ", $co->param('text');
 open (DATA, ">>data.dat");
 print DATA $co->param('text');
 close DATA;
 }                                                             
 
 print $co->end_html;
 
 Спасибо.
 
 --- ifmail v.2.15
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор