Perl HTTP守护程序服务器 - 读取POST JSON正文

Question

我正在使用HTTP::Daemon为我的API创建一个http服务器。在example和doc的帮助下，我能够创建一个基本的HTTP服务器。

但是，我的API应该在服务器的post请求中接受JSON作为正文。所以，我需要阅读JSON以便我可以处理它。我知道，如何阅读url param $r->uri->query_form();

有没有办法阅读POST JSON？

Answer 1

use JSON;
use Data::Dumper;
my $json = decode_json($r->content);
print Dumper $json;