|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 02 Jul 2004 18:48:37
To : Maxim Yemelyanov
Subject : Re: read POSTed data
--------------------------------------------------------------------------------
Maxim Yemelyanov @ Fri, 2 Jul 2004 11:01:08 +0000 (UTC):
MY> Почему-то не читаются POST данные в этом случае:
MY> sub handler
MY> {
MY> my $r = shift;
MY> my $apr = Apache::Request->new($r);
MY> my @params = @apr->param;
MY>
MY> }
MY> Следующая попытка написать процедурку, которая вернет хеш из GET и POST
MY> параметров тоже не увенчалась успехом:
MY> sub r_params
MY> {
MY> my $r = shift;
MY> my %get = $r->args;
MY> my $clen = $r->header_in('Content-Length') || 0; # значение есть
MY> my $post = $r->content; # а тут пусто
Видимо, уже кто-то зачитал.
MY> if (length($post) < $clen)
MY> {
MY> $r->read($post, $clen - length($post), length($post)); # все равно
MY> $r->пусто
MY> }
MY> my %post = $r->args($post);
MY> return { %get, %post };
MY> }
MY> Как под mod_perl-ом получить заPOSTенные данные?
Если я правильно помню, Apache::Request сам ест собственно тело
запроса, и его param() и upload() должны эмулировать аналоги из CGI.
Так что по идее первый вариант должен быть правильным.
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Re: read POSTed data 