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

Question

我使用HTTP:：Daemon为我的API创建了一个HTTP服务器。在以下示例和文档的帮助下，我能够创建一个基本的HTTP服务器。

然而，我的API应该接受JSON作为向服务器发出请求的主体。所以，我需要读取JSON以便处理它。我知道，如何读取url参数$r->uri->query_form();

有没有读取POST JSON的方法？

Answer 1

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