Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > apache2 mod_perl http put

Автор: Loki 11.2.2015, 15:14

Как прочитать значение отправленное в http put?

Код


  use warnings;
  use utf8;
  use Apache2::RequestRec ();
  use Apache2::RequestIO ();
  use Apache2::Const -compile => 'OK';


sub handler {
my $r = shift;
$r->content_type('charset=UTF-8');
my $url = $r->unparsed_uri;


     $r->content_type('text/plain');
     $r->print($allr);

return Apache2::OK;
}
1;
__END__

Автор: ginnie 11.2.2015, 15:27

Loki, я не обрабатывал запросы, отправленные методом PUT, но для POST использовал libapreq2 (модуль Apache2::Request), пример есть в документации, если будут вопросы, пиши.

Автор: Loki 12.2.2015, 03:08

я попробовал аот так.

Код


$r->print($r->body);

но получил еррор:

Цитата

Can't locate object method "body" via package "Apache2::RequestRec"

все, сделал, вот так:

Код


sub handler {
my $r = shift;
my $buffer;
        $r->read($buffer, 8192);
     $r->content_type('text/plain');
     $r->print($buffer . "\n"); #$r->body);

return Apache2::OK;
}