让我们假设我们有一些像这样的
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)的文本值对列表.
编辑：
这是一些工作代码,但它非常难看.不是要求琐碎的重构,但拉链是否有更好的方式让我们这样做？
(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)))
