Erlang JSON API数据生命周期

Question

What is the best practices of using Erlang in JSON API's? I mean how do you deal with JSON - Logic - Database - Logic - JSON lifecycle. What data structures, tools and techniques are you using in Erlang apps?

Answer 1

There are two tools I tend to use for JSON in Erlang: jsx and jiffy . Check them both as they have slightly different properties wrt flexibility and speed.

The major problem is that Erlang has no built-in dictionary type. Hence, JSON objects are often represented as a property list, ie,

{ a : 10,
  b : 20 }

is represented as a list of tuples:

[{a, 10}, {b, 20}]

and this is the major thing to look out for. It also means that one should probably avoid using JSON as the internal representation format as much as possible since it is unwieldy to work with in the long run.

Answer 2

For working with JSON, I use mochijson2 and Erlson .

mochijson2 is a part of the mochiweb project. It is a stable, battle-tested, pure Erlang implementation with flexible JSON parsing and generation APIs.

Erlson provides a nice dictionary syntax for Erlang which is especially handy when working with JSON. For example:

#[
    foo = 1,
    bar = "some string",
    nested = #[i = 1, b = true]
]

In addition, Erlson comes with erlson:to_json and erlson:from_json functions for converting between Erlson and JSON using mochiweb2 .

(disclaimer: I'm the author of Erlson)

Answer 3

Your question is bigger than the answers received so far. However, for Manipulating JSON, they have all told you about mochijson.erl , mochijson2.erl all of which come with mochiweb HTTP Library. To use them, a JSON Object is represented as a Struct Object like this:

 {"FirstName": "Joshua", "Surname": "Muzaaya"}


 {struct,[{<<"FirstName">>,<<"Joshua">>},{<<"Surname">>,<<"Muzaaya">>}]}

To Parse to and Fro:

JSON_DATA = {"students":[
                {"student_number":45,
                  "details":[{"FirstName": "Joshua", "Surname": "Muzaaya"}
                   ]
                }
            ]}


 $> mochijson2:decode(JSON_DATA).
   {struct,[{<<"students">>,
          [{struct,[{<<"student_number">>,45},
                    {<<"details">>,
                     [{struct,[{<<"FirstName">>,<<"Joshua">>},
                               {<<"Surname">>,<<"Muzaaya">>}]}]}]}]}]}


 $> mochijson2:encode(StructObject).

Now Databases, i dont know what you really want, but, normally, we can write data in a Key Value store , Mnesia , or CouchDB via a RESTFUL access API. I have written a Couchbase Single Server Client in Erlang. Here are some of the functions inside:

\ncreate_database(ServerDomain,DBName)-> \n    try ibrowse:send_req(ServerDomain ++ DBName,[{"Content-Type",  
 "application/json"}],put,[]) of  
 {ok,_,_,Result} ->  \n            case proplists:get_value(<<"ok">>,element(2,mochijson2:decode(Result  
 ))) of \n                undefined -> {error,failed}; \n                _ -> ok \n            end; \n        Any -> {error,Any} \n    catch \n        EE:EE2 -> {error,{EE,EE2}} \n    end.  
\ndelete_database(ServerDomain,DBName)-> \n    try ibrowse:send_req(ServerDomain ++ DBName,[{"Content-Type","application/json"}],delete,[]) of  \n        {ok,_,_,Result} ->  \n            case proplists:get_value(<<"ok">>,element(2,mochijson2:decode(Result))) of \n                undefined -> {error,failed}; \n                _ -> ok \n            end; \n        Any -> {error,Any} \n    catch \n        EE:EE2 -> {error,{EE,EE2}} \n    end.  
\n%% read/3 ::= Struct  
 read(ServerDomain,DBName,DocId)->  \n    try ibrowse:send_req(ServerDomain ++ DBName ++ "/" ++ DocId,[{"Content-Type","application/json"}],get,[]) of  
\n        {ok,_,_,Result} -> mochijson2:decode(Result);  
\n        Any -> {error,Any} \n    catch \n        EE:EE2 -> {error,{EE,EE2}} \n    end.  

\n%% write/3 ::= [{id,Id::string()},{rev,Rev::string()}]  
 write(ServerDomain,DBName,DocStruct)-> \n    try ibrowse:send_req(ServerDomain ++ DBName,[{"Content-Type","application/json"}],post,lists:flatten(mochijson:encode(DocStruct))) of  
\n        {ok,_,_,Result} ->  \n            E = element(2,mochijson2:decode(Result)), \n            case {proplists:get_value(<<"id">>,E),proplists:get_value(<<"rev">>,E)} of \n                {undefined,_} -> {error,E}; \n                {_,undefined} -> {error,E}; \n                {Id,Rev} -> [{id,binary_to_list(Id)},{rev,binary_to_list(Rev)}]  
\n            end;  
\n        Any -> {error,Any} \n    catch \n        EE:EE2 -> {error,{EE,EE2}} \n    end.  

\n%% remember to specify the '_rev' of recent copy when updating \n%% update/4 ::= [{id,Id::string()},{rev,Rev::string()}] \nupdate(ServerDomain,DBName,DocId,DocStruct)-> \n    try ibrowse:send_req(ServerDomain ++ DBName ++ "/" ++ DocId,[{"Content-Type","application/json"}],put,lists:flatten(mochijson:encode(DocStruct))) of  
\n        {ok,_,_,Result} ->  \n            E = element(2,mochijson2:decode(Result)), \n            case {proplists:get_value(<<"id">>,E),proplists:get_value(<<"rev">>,E)} of \n                {undefined,_} -> {error,E}; \n                {_,undefined} -> {error,E}; \n                {Id,Rev} -> [{id,binary_to_list(Id)},{rev,binary_to_list(Rev)}]  
\n            end;  
\n        Any -> {error,Any} \n    catch \n        EE:EE2 -> {error,{EE,EE2}} \n    end.  

\n%% you need to provide the '_rev' of current copy  \n%% of doc to be deleted  
 delete(ServerDomain,DBName,DocId,Rev)-> \n    try ibrowse:send_req(ServerDomain ++ DBName ++ "/" ++ DocId ++ "?rev=" ++ Rev,[{"Content-Type","application/json"}],delete,[]) of  
\n        {ok,_,_,Result} ->  \n            E = element(2,mochijson2:decode(Result)), \n            case {proplists:get_value(<<"id">>,E),proplists:get_value(<<"ok">>,E)} of \n                {undefined,_} -> {error,E}; \n                {_,undefined} -> {error,E}; \n                {_Id,_} -> ok  
\n            end;  
\n        Any -> {error,Any} \n    catch \n        EE:EE2 -> {error,{EE,EE2}} \n    end.  

\nrandom(ServerDomain,Count) when is_integer(Count)-> \n    try ibrowse:send_req(ServerDomain ++ "_uuids?count=" ++ integer_to_list(Count),[{"Content-Type","application/json"}],get,[]) of  \n        {ok,_,_,Result} ->  \n            [binary_to_list(Z) ||  Z <- proplists:get_value(<<"uuids">>,element(2,mochijson2:decode(Result)))]; \n        Any -> {error,Any} \n    catch \n        EE:EE2 -> {error,{EE,EE2}} \n    end. \n

So, perhaps try breaking down your question. Otherwise, you can see above that i am playing alot with JSON. To use the methods abpve, first make user ibrowse is running.