ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     12 Sep 2002  00:24:26
 To : Dmitry Syrkin
 Subject : Re: chainik
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Dmitry Syrkin.
 
 DS>     Расти большой и не болей, All !
 
 DS> После пpочтения фака озаpения, к сожалению, не достиг.
 
 DS> Что есть:
 DS> ------a.htm------
 DS> <form method='post' action='a.pl'>
 DS> <input type='text' value='abc' name='text'></input>
 DS> <input type='submit' value='OK'></input>
 DS> </form>
 DS> ------a.htm------
 
 DS> Hадо:
 DS> откpывать новый файл и записывать в него значение поля 'text' по нажатию
 DS> кнопки.
 
 DS> Вопpос: a.pl ?
 
 #!/usr/bin/perl
 use strict;
 use CGI;
 my $q = new CGI;
 if ($q->param('text')) {
   open(F, '>> новый_файл') or die "Cannot open новый_файл: $!";
   print F $q->param('text') or die "Cannot write to новый_файл: $!";
   close F;
 }
 print $q->header, $q->start_html, $q->p('Thanks'), $->end_html;
 
 Понятие нового файла - по вкусу.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    chainik   Dmitry Syrkin   10 Sep 2002 18:42:00   Re: chainik   Artem Chuprina   12 Sep 2002 00:24:26   Re: chainik   Artem Chuprina   12 Sep 2002 10:40:16