|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Maxim Yemelyanov 2:5020/400 02 Jul 2004 15:01:08
To : All
Subject : read POSTed data
--------------------------------------------------------------------------------
Приветствую!
Почему-то не читаются POST данные в этом случае:
sub handler
{
my $r = shift;
my $apr = Apache::Request->new($r);
my @params = @apr->param;
}
Следующая попытка написать процедурку, которая вернет хеш из GET и POST
параметров тоже не увенчалась успехом:
sub r_params
{
my $r = shift;
my %get = $r->args;
my $clen = $r->header_in('Content-Length') || 0; # значение есть
my $post = $r->content; # а тут пусто
if (length($post) < $clen)
{
$r->read($post, $clen - length($post), length($post)); # все равно пусто
}
my %post = $r->args($post);
return { %get, %post };
}
Как под mod_perl-ом получить заPOSTенные данные?
--
Удачи!
Максим
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Enigma Soft (2:5020/400)
Вернуться к списку тем, сортированных по:
|
