获取解析JSON字符串的递归调用的正确子序列

我开始为大学的家庭作业编写以下代码，其中包括在CommonLisp中解析json字符串。我现在面临的主要问题是获取正确的子字符串\子序列以继续递归调用并解析字符串的其余部分。基本上，主要思想是递归地检查整个字符串。按照给定的语法，输入字符串应为：

    1) "{\"nome\" : \"arturo\" , \"cognome\" : \"durone\" , \"età\" : \"22\" , \"corso\" : \"informatica\"}"
    2) "{\"name\" : \"Zaphod\",\"heads\" : [[\"Head1\"], [\"Head2\"]]}"
    3) "{\"name\" : \"Zaphod\",{property:value, property : [1,2,3] }
    4) "[1,2,3]"

基本上，我会从字符串中删除任何空格和\“以获得一个干净的字符串

”{name:Zaphod，heads:[[Head1]，[Head2]}

，这里我检查

'：'

的位置，并得到从0到

（（位置）：）-1）的子序列

，第二部分也是如此，但当我必须传递到递归调用时，就会出现问题，因为我不知道如何传递字符串的正确索引

我试图检查函数在输出中提供给我的新列表中任何元素的长度，但它不起作用/帮助，因为字符串被拆分，初始输入中没有空格和

\“

字符。您能帮我找到一种方法，按照递归方法解析json字符串的其余部分吗

> main function 
(defun j-obj (str) 
 (cond ((correct_form str)
        `(json-obj-aux(revome_braces (remove_backslash(remove_space str)))))))`

> aux function that thru a recursive call analize the whole string 
(defun json-obj-aux (str)
 (cond ((= (length str) 0)nil)
       ((cons (aux_control str)nil))))
            ;   (json-obj-aux (subseq (shorter str)(length (aux_control (shorter str)))
                                ;                          (length (shorter str))))))))
> check the whole string , splitting once it finds ":"
(defun aux_control (str) 
   (cons (subseq str 0 (search ":" str))(check_type (subseq str (+ (search ":" str) 1) (length str)))))

(defun check_type (str)
  (cond ((equal (subseq str 0 1) "{")(obj_c str))
        ((equal (subseq str 0 1) "[")(cons (obj_array (remove_braces str))nil))
        (t (cons (subseq str 0 (search "," str))nil))))


(defun obj_c (str)
 "{")

(defun obj_array (str)
  (cond ((= 0 (length str))nil)
        ((null (search "," str))(cons (subseq str (+ (search "[" str)1)(- (length str)1))nil))
        ((and (null (search "[" str))(null (search "," str)))(cons str nil))
        ((null (search "[" str))(cons (subseq str 0 (search "," str))
                                      (obj_array (subseq str (+ (search "," str) 1)))))
        ((cons (subseq str (+ (search "[" str) 1)(search "]" str))
              (obj_array (subseq str (+ (search "," str) 1)))))))

(defun remove_space (str)
 (cond ((= 0 (length str))nil)
       ((concatenate 'string (remove_aux str) (remove_space(subseq str 1))))))

(defun remove_aux (str)
 (cond ((equal (subseq str 0 1) " ")"")
       ((concatenate 'string (subseq str 0 1) ""))))


(defun remove_backslash (str)
  (cond ((= 0 (length str))nil)
        ((concatenate 'string (remove_slash str)(remove_backslash(subseq str 1))))))

(defun remove_slash (str)
  (cond ((equal (subseq str 0 1) "\"")"")
        ((concatenate 'string (subseq str 0 1) ""))))

(defun remove_braces (str)
  (subseq str 1 (- (length str) 1)))


(defun shorter (str)
  (subseq str 1 (length str)))

这是我到目前为止得到的，这并不是完全错误的，因为我可以解析json字符串的一部分。我无法真正解析的是整个问题，因为我不知道如何传递新子序列的正确索引：

    CL-USER 1 >  (j-obj "{\"name\" : \"Zaphod\",\"heads\" : [[\"Head1\"], [\"Head2\"]]}")
    (("name" "Zaphod"))


    CL-USER 2 > (j-obj "{\"heads\" : [[\"Head1\"], [\"Head2\"]]}")
    (("heads" ("Head1" "Head2")))

正确的输出应该是：

(("name" "Zaphod")("heads" ("Head1" "Head2")))

---

您不应该从输入中删除有助于确定下一步内容的字符<代码>{name:Zaphod，heads:[[Head1]，[Head2]]}不干净，是无效的JSON。JSON中的所有键都必须是字符串，所有字符串都包含在

“

中

Head1

在JSON中是无效的

一种干净的方法是首先标记字符串：

"{\"name\" : \"Zaphod\",\"heads\" : [[\"Head1\"], [\"Head2\"]]}"

屈服

{
"name"
:
"Zaphod"
,
"heads"
:
[
[
"Head1"
]
,
[
"Head2"
]
]
}

然后，

parse json

函数查看第一个标记：如果它是字符串，则生成一个字符串；如果它是一个数字，它产生一个数字；如果它是一个布尔值，它将生成该布尔值…如果是

{

，则调用

解析json obj

；如果是

[

，则调用

解析json数组

Parse json obj

反复调用

Parse key value

，直到下一个标记是

}

，而不是

，

Parse key value

解析字符串（否则会出错），然后是

：

，然后调用

Parse

获取值

您可以通过从每个parse*函数返回剩余值作为第二个值来跟踪您在令牌列表中的位置。

亲爱的MaxMnt…所以不是“做我的功课”为我的网站。阅读和修改相应的问题，以最低限度的工作例子。在你们的情况下。还张贴一个或两个试验，你们表明你们尝试和失败。最后，你们检查了吗？