如果一個 URL 要求POST數據是 JSON格式的， 那我們要怎麽發送數據呢？

第一種：

HTTP::Request

上一篇說到， 發送 POST 數據， 可以:

1. $ua.post(url, %data)

2. $request.add-form-data(%data)
    $ua.request($request)

在這裏， 無論是第一種方法還是第二種方法， 裏面所發送的 %data 都會自動編碼。

JSON也是一種字符串格式， 這兩種方法要求%data為一個hash, 那就說明這兩種方法不能實現發送JSON。

HTTP::Request 其實還有一種方法， 叫做：

add-content

些方法接受一個字符串的參數， 我們可以用這種方式提交JSON：

> my $request = HTTP::Request.new(POST=>‘http://localhost/‘)

添加 JSON 字符串：

> $request.content
(Any)
> %data = :user<root>, :password<root>
{password => root, user => root}
> $request.add-content(to-json(%data))
Nil
> $request
 
.content
{ "password" : "root", "user" : "root" }
>

我這裏用了 to-json (這方法在模塊 JSON::Tiny中)把一個%data轉化為一個 JSON字符串再傳入$request中。

之後再請求就行了：

my $html = $ua.request($request)

我們可以打印出請求參數看一下是不是真的發送了JSON格式字符串：

> $html.request.Str
POST / HTTP/1.1
Host: localhost
Content-Length: 40
Connection: close

{ "password
 
" : "root", "user" : "root" }

>

可以看到， 是發送了 JSON 格式的字符串數據。

基實我們只要發送一個 JSON的字符串就行了， 我上面的代碼， 只是為了方便， 把一個 %data 轉化成了字符串， 其實我們可以定義一個 JSON 格式的字符串， 再 add-content 添加， 最後發送即可, 如下：

先創建一個字符串：

> my $post_string = ‘{"password":"root", "user":"root"}‘

添加進request對象並請求：

> $request.add-content($post_string)
Nil
> $html = $ua.request($request)

最後打印請求參數是否正確：

> $html.request.Str
POST / HTTP/1.1
Host: localhost
Content-Length: 34
Connection: close

{"password":"root", "user":"root"}

>

可以看到， 一樣是能正常發送的。

除了用 HTTP::Request 發送 JSON 請求外， PERL6還有一個模塊：

WWW

這個模塊可以接收字符串格式的POST數據， 也就是JSON了：

multi jpost($url where URI:D|Str:D, *%form);
multi jpost($url where URI:D|Str:D, %headers, *%form);
multi jpost($url where URI:D|Str:D, Str:D $form-body, *%headers);

say jpost ‘https://httpbin.org/post?meow=moo‘, :72foo, :bar<?>;
say jpost ‘https://httpbin.org/post?meow=moo‘,
        %(Content-type => ‘application/json‘), :72foo, :bar<?>;

用它發送請求， 可以像這樣：

jpost ‘http://localhost‘, JSON, %headers;

這是 jpost 請求， 會自動獲取 JSON 格式的 返回值， 如果要獲取一般格式的響應請求， 可以用它的 POST 方法。

WWW 模塊在如下地址可找到：

https://github.com/zoffixznet/perl6-WWW

我們可以看下它的 POST 源碼， 其實也是用了 HTTP::Request進行了封裝而已：

perl6 HTTP::UserAgent (3) JSON