Erlang: Tuple Lista in JSON

Question

Ho una lista di tuple che sono intestazioni HTTP. Voglio convertire l'elenco a un oggetto JSON. Provo mochijson2 ma senza alcun risultato.

Così ho il seguente:

[{'Accept',"text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"},
 {'Accept-Charset',"ISO-8859-1,utf-8;q=0.7,*;q=0.7"},
 {'Accept-Encoding',"gzip,deflate"},
 {'Accept-Language',"en-us,en;q=0.5"},
 {'Cache-Control',"max-age=0"},
 {'Connection',"close"},
 {'Cookie',"uid=CsDbk0y1bKEzLAOzAwZUAg=="},
 {'User-Agent',"Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10"}]

E vorrebbe questo (una stringa JSON binario):

<<"{\"Accept\":\"text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\",
 \"Accept-Charset\":\"ISO-8859-1,utf-8;q=0.7,*;q=0.7\",
 \"Accept-Encoding\":\"gzip,deflate\",
 \"Accept-Language\":\"en-us,en;q=0.5\",
 \"Cache-Control\":\"max-age=0\",
 \"Connection\":\"close\",
 \"Cookie\":\"uid=CsDbk0y1bKEzLAOzAwZUAg==\",
 \"User-Agent\":\"Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10\"}">>

E provo questo dove A è l'elenco originale di tuple:

list_to_binary(mochijson2:encode(A)).

ho il sospetto che ho bisogno di farlo in un formato che mochijson2 può interpretare meglio. E poi convertire in binaria. O trovare un modo per avere tutti i personaggi rappresentati come stringhe (piuttosto che avere un po 'come la lista di numeri interi).

Molto apprezzato se potesse puntare nella giusta direzione con un certo codice di esempio.

Answer 1

È necessario convertire quelle corde c'è dentro in binario prima si invia al codificatore. L'encoder mochijson2 proprio considera ciò come una lista di numeri interi ed emette come un array. esigenze mochijson2 di convert{'key', "val"} in {'key', <<"val">>}

Prova questo nel codice:

Original = [
  {'Accept-Charset',"ISO-8859-1,utf-8;q=0.7,*;q=0.7"}, 
  {'Accept-Encoding',"gzip,deflate"}
].
StingConverted = [ {X,list_to_binary(Y)} || {X,Y} <- Original ].
Output = mochijson2:encode(StingConverted).
io:format("This is correct: ~s~n", [Output]).

Se si preferisce usare Funs:

Original = [
  {'Accept-Charset',"ISO-8859-1,utf-8;q=0.7,*;q=0.7"}, 
  {'Accept-Encoding',"gzip,deflate"}
].
ConvertFun = fun({X,Y}) -> {X,list_to_binary(Y)} end.
StingConverted = lists:map(ConvertFun, Original).
Output = mochijson2:encode(StingConverted).
io:format("This is correct: ~s~n", [Output]).