假设我们有如下的XML代码:
<a>
<b>
<c>text</c>
<d>
<e>text</e>
<f>
... lots of cruft here ..
</f>
</d>
</b>
<b>
...
</b>
<!-- more b sub-trees -->
</a>
现在,通过查看zip_filter/xml.clj中的示例,我已经弄清楚了如何获取我感兴趣的单个值。
我想知道如何返回(c e)文本值对的列表。
编辑:
这里有一些可行的代码,但它非常丑陋。不是要求微小的重构,但是否有更好的方法可以使用zippers来完成这个任务?
(defn extract-data [xml]
(let [items (x/xml-> xml zf/descendants :Item) ;items not top-level
getAttributes #(x/xml1-> % :ItemAttributes) ;items have itemattributes
getASIN #(x/xml1-> % :ASIN x/text) ;items have ASINs
getTitle #(x/xml1-> % :Title x/text) ;itemattributes have Titles
getAuthor #(x/xml1-> % :Author x/text)] ;itemattributes have Authors
(map
;build a function to get everything we need from the items, and apply
#(let [attributes (getAttributes %)] ;get the attributes, we'll use it twice
(list
(getASIN %)
(getTitle attributes)
(getAuthor attributes)))
items)))
(map (juxt getASIN (comp (juxt getTitle getAuthor) getAttributes)) items)
但是我必须展平向量。 - Mark Bolusmjak