perl www mechanize 和 JSON

Question

如何使用 perl mechanize 模块提交有效的 JSON 请求

我试过了

use WWW::Mechanize;
use JSON;   

my $mech=WWW::Mechanize->new(
    stack_depth     => 10,
    timeout         => 120,
    autocheck       => 0,
);

$mech->agent_alias( 'Windows Mozilla' );

my $json =  '{"jsonrpc":"2.0","id":1,"params":{"query":    {"limit":2000,"start":0,"orderBy":[{"columnName":"osName","direction":"Asc"}]},"refresh":true}}';

$url  ="http://path/to/url/";

$mech->post($url,$json);

结果没有按预期出现它总是解析json错误。

所以我只是发布$mech->post($url,$cjson); 这样做是对的

或者我应该做/添加其他东西吗？

Answer 1

通常会使用JSON 模块，这样您就可以在Perl 中创建数据结构，然后使用serialize to a JSON formatted string。

$json_text = encode_json $perl_scalar

看起来像这样：

#!/usr/bin/env perl

use strict;
use warnings;

use JSON qw/encode_json/;

my $data = {
  "jsonrpc" => "2.0",
  "id" => 1,
  "params" => {
    "query" => {
      "limit" => 2000,
      "start" => 0,
      "orderBy" => [{ 
        "columnName" => "osName",
        "direction" => "Asc",
      }],
    },
    "refresh" => \0,
  },
};

print encode_json $data;

请注意，\0 和 \1 可以分别用作 false 和 true。

再说一次，我很久没有使用 WWW::Mechanize 并且我不会深入研究文档，所以这里是一个使用 Mojo::UserAgent 的示例（更像 LWP::UserAgent 而不是 mech） ，它有一个内置的 JSON 处理程序：

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;

my $data = {
  "jsonrpc" => "2.0",
  "id" => 1,
  "params" => {
    "query" => {
      "limit" => 2000,
      "start" => 0,
      "orderBy" => [{ 
        "columnName" => "osName",
        "direction" => "Asc",
      }],
    },
    "refresh" => \0,
  },
};

my $url = "http://path/to/url/";
$ua->post( $url, json => $data );