Parsowanie i generowanie JSON

Question

Mathematica's list of built-in formats jest dość rozbudowana; jednak JSON nie znajduje się na tej liście. Czy istnieje istniejące rozwiązanie do generowania i analizowania JSON w Mathematica, czy też będziemy musieli wdrożyć własne rozwiązanie?

Answer 1

UPDATE: Jak wspomniano w odpowiedzi Pillsy, w JSON jest wbudowany w formacie Importerów i Eksporterów jak z Mathematica 8: http://reference.wolfram.com/mathematica/ref/format/JSON.html. Ale, jak zostało to omówione w komentarzach, wydaje się, że poniższe rozwiązanie jest bardziej niezawodne niż w Mathematica 10.4.1:

OSTRZEŻENIE: To wymaga wykonania eval (ToExpression), więc nie używaj tego do analizowania ciągów od niezaufanych źródła.

pierwsze, bardzo szybkiego i brzydka częściowe rozwiązanie JSON parsowania byłoby to:

ToExpression[StringReplace[json, {"["->"{", "]"->"}", ":"->"->"}]] 

Czyli po prostu zastąpić nawiasy kwadratowe z klamrami i dwukropkami ze strzałkami, a następnie eval go. Pozostaje tylko , a nie dokonanie tych zmian w łańcuchach. (Potrzebne są jeszcze kilka zastępstw dla zapisu zerowego, prawdziwego, fałszywego i naukowego).

Prawdopodobnie istnieje bardziej eleganckie rozwiązanie problemu niewiążącego się z łańcuchami, ale pierwszą rzeczą, o której należy pamiętać, jest zrobienie podstawienia takie jak "{"->"(*MAGICSTRING*){", a następnie po eval (gdy znikną komentarze poza ciągami), odwróć te podstawienia. (PS: Wracając do tego później, jestem całkiem zadowolony z tego sprytu i wygląda na to, że jest całkowicie niezawodny Magiczne łańcuchy FTW!)

To trochę łatwiej powiedzieć niż zrobić, ale następujący parser JSON wydaje się działać:

cat = StringJoin@@(ToString/@{##})&;   (* Like sprintf/strout in C/C++. *) 
eval = ToExpression;   (* Mathematica function names are too verbose! *) 

parseJSON[json_String] := With[{tr = {"["  -> "(*_MAGIC__[__*){", 
             "]"  -> "(*_MAGIC__]__*)}", 
             ":"  -> "(*_MAGIC__:__*)->", 
             "true" -> "(*_MAGIC__t__*)True", 
             "false" -> "(*_MAGIC__f__*)False", 
             "null" -> "(*_MAGIC__n__*)Null", 
             "e"  -> "(*_MAGIC__e__*)*10^", 
             "E"  -> "(*_MAGIC__E__*)*10^"}}, 
    eval@StringReplace[cat@FullForm@eval[StringReplace[json, tr]], Reverse/@tr]] 

(. cat i eval są funkcjami wygoda Wystarczy cat = ToString będzie działać w tym przypadku, ale mi się podoba bardziej ogólną wersję, która skleja wszystkie swoje argumenty do łańcucha.).

Wreszcie tutaj funkcją wygenerować JSON (który ma potrzeby bardziej ogólne cat, jak również inną funkcję użytkową do wyświetlania liczb w taki sposób, JSON odpowiednio)

re = RegularExpression; 
jnum[x_] := StringReplace[ 
    ToString@NumberForm[N@x, ExponentFunction->(Null&)], re@"\\.$"->""] 

genJSON[a_ -> b_] := genJSON[a] <> ":" <> genJSON[b] 
genJSON[{x__Rule}] := "{" <> cat @@ Riffle[genJSON /@ {x}, ", "] <> "}" 
genJSON[{x___}] := "[" <> cat @@ Riffle[genJSON /@ {x}, ", "] <> "]" 
genJSON[Null]  := "null" 
genJSON[True]  := "true" 
genJSON[False]  := "false" 
genJSON[x_]  := jnum[x] /; NumberQ[x] 
genJSON[x_]  := "\"" <> StringReplace[cat[x], "\""->"\\\""] <> "\"" 

Answer 2

This guy ma sprytnego przykład parsowania kodu JSON w Mathematica

Answer 3

Na Mathematicą 8 JSON is a built-in format obsługuje zarówno import, jak i eksport.