HTTP::Body(3pm) | User Contributed Perl Documentation | HTTP::Body(3pm) |
HTTP::Body - HTTP Body Parser
use HTTP::Body; sub handler : method { my ( $class, $r ) = @_; my $content_type = $r->headers_in->get('Content-Type'); my $content_length = $r->headers_in->get('Content-Length'); my $body = HTTP::Body->new( $content_type, $content_length ); my $length = $content_length; while ( $length ) { $r->read( my $buffer, ( $length < 8192 ) ? $length : 8192 ); $length -= length($buffer); $body->add($buffer); } my $uploads = $body->upload; # hashref my $params = $body->param; # hashref my $param_order = $body->param_order # arrayref my $body = $body->body; # IO::Handle }
HTTP::Body parses chunks of HTTP POST data and supports application/octet-stream, application/json, application/x-www-form-urlencoded, and multipart/form-data.
Chunked bodies are supported by not passing a length value to new().
It is currently used by Catalyst to parse POST bodies.
When parsing multipart bodies, temporary files are created to store any uploaded files. You must delete these temporary files yourself after processing them, or set $body->cleanup(1) to automatically delete them at DESTROY-time.
{ data => "test", done => 1, headers => { "Content-Disposition" => "form-data; name=\"arg2\"", "Content-Type" => "text/plain" }, name => "arg2", size => 4 }
Since its original creation this module has been taken over by the Catalyst development team. If you want to contribute patches, these will be your primary contact points:
IRC:
Join #catalyst-dev on irc.perl.org.
Mailing Lists:
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev
Christian Hansen, "chansen@cpan.org"
Sebastian Riedel, "sri@cpan.org"
Andy Grundman, "andy@hybridized.org"
Simon Elliott "cpan@papercreatures.com"
Kent Fredric <kentnl@cpan.org>
Christian Walde
Torsten Raudssus <torsten@raudssus.de>
This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.
2022-06-14 | perl v5.34.0 |