如何使用LWP :: UserAgent在BOX API中发布发布请求？

Question

我曾尝试下面的代码

my $url = "https://api.box.com/2.0/users/"; 

use strict; 
use warnings; 

use LWP::UserAgent; 
use HTTP::Request::Common qw{ POST }; 
use CGI; 

my $ua  = LWP::UserAgent->new(); 
my $request = POST($url, [ 'name' => 'mkhun', 'is_platform_access_only' => 'true',"Authorization" => "Bearer <ACC TOK>" ]); 
my $content = $ua->request($request)->as_string(); 

my $cgi = CGI->new(); 
print $cgi->header(), $content; 

上面的代码总是给出400错误。并投掷

{"type":"error","status":400,"code":"bad_request","context_info":{"errors":[{"reason":"invalid_parameter","name":"entity-body","message":"Invalid value 'is_platform_access_only=true&Authorization=Bearer+WcpZasitJWVDQ87Vs1OB9dQedRVyOrs6&name=mkhun'. Entity body should be a correctly nested resource attribute name\/value pair"}]}, 

我不知道是什么问题。 Linux curl也一样。

curl https://api.box.com/2.0/users \ 
-H "Authorization: Bearer <TOKEN>" \ 
-d '{"name": "Ned Stark", "is_platform_access_only": true}' \ 
-X POST 

Answer 1

的Box API documentation says：

两个请求体数据和响应数据被格式化为JSON。

您的代码改为发送form-encoded data。

此外，它看起来像Authorization应该是一个HTTP标头，而不是一个表单字段。

试试这个：

use strict; 
use warnings; 

use LWP::UserAgent; 
use JSON::PP; 

my $url = "https://api.box.com/2.0/users/"; 
my $payload = { 
    name => 'mkhun', 
    is_platform_access_only => \1, 
}; 

my $ua = LWP::UserAgent->new; 

my $response = $ua->post(
    $url, 
    Authorization => 'Bearer <TOKEN>', 
    Content => encode_json($payload), 
);