通过 erlang 向服务器发送 http post 请求

 1 -module(t).  
 2   
 3 -export([test/0]).  
 4   
 5 test()->  
 6     Method = post,
 7     URL = "http://192,168.124.10:3000/node/2.0/new",
 8     Header = [],
 9     Type = "application/json",
10     Body = "{\"name\":\"foo.example.com\"}",
11     HTTPOptions = [],
12     Options = [],
13     case httpc:request(Method, {URL, Header, Type, Body}, HTTPOptions, Options) of
14         {ok, {_,_,Body}}-> 
15             io:format("receive body:~p~n", [Body]),
16             {"id", Key} = lists:keyfind("id",1,json:parse(Body)),
17             io:format("Key is:~p~n", [Key]);
18         {error, Reason}->
19             io:format("error cause ~p~n",[Reason])  
20     end.