perl - 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;