ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vladimir Volkov                      2:5020/400     30 May 2003  22:35:00
 To : Sergey Antropov
 Subject : Re: Траблс...
 -------------------------------------------------------------------------------- 
 

 Hello, Sergey!
 You wrote to All on Fri, 30 May 2003 02:25:13 +0400:
 
 SA>  [ы] Привет, как жизнь, All ?
 
 SA> Возникла очередная проблема:
 
 SA> if ($ENV{'REQUEST_METHOD'} eq "POST"){read(STDIN, $bufer,
 SA> $ENV{'CONTENT_LENGTH'});}
 SA> else {$ENV{'REQUEST_METHOD'} eq "GET"; $bufer=$ENV{'QUERY_STRING'};}
 
 SA> При методе POST ничего не читает в $bufer, что делать. Где у меня руки
 SA> кривые?
 
 У меня работает так:
 
     if ($ENV{REQUEST_METHOD} eq 'GET') {
       $ret = $ENV{QUERY_STRING};
     }
     elsif ($ENV{REQUEST_METHOD} eq 'POST') {
       read(STDIN,$ret,$ENV{CONTENT_LENGTH});
     }
 
 Ты уверен, что грабли именно в этом месте?
 
 --
         Vladimir Volkov, at your service.  E-mail: vlad_volkov@vv.sovsem.net
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: Траблс...   Vladimir Volkov   30 May 2003 22:35:00   Траблс...   Sergey Antropov   31 May 2003 02:30:45   Траблс...   Oleg N. Kotenko   31 May 2003 13:29:23