如何使用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), 
);