用perl解析json

Question

我有一个 url，应该从我的 perl 脚本中使用特定参数调用它。在调用 url 时，它会返回一个 JSON。我将不得不在同一个脚本中解析这个 JSON。在 perl 中完成这项工作的最佳方法是什么。伪代码会有所帮助:)

Answer 1

你可以试试这样的：

use LWP::Simple qw(get);
use JSON        qw(from_json);

my $url     = "http://example.com/get/json";
my $decoded = from_json(get($url));

有关详细信息，请参阅 LWP::Simple 和 JSON 的文档。