比如说,我正在解析RSS源,并希望从中提取信息的子集.
(def Feed (-> "http://..." clojure.zip/xml-zip clojure.xml/parse))
(xml-> Feed :channel :item :link text) (xml-> Feed :channel :item :title text)
然而,我不知道如何在不经过拉链的情况下同时提取它们的方法,例如,
(let [Feed (-> "http://..." clojure.zip/xml-zip clojure.xml/parse)] (zipmap (xml-> Feed :channel :item :link text) (xml-> Feed :channel :item :title text)))
……或其变体,包括将多个序列映射到一个函数,该函数用例如assoc递增地构建映射.
不仅我必须多次遍历序列,序列也有不同的状态,因此元素必须“对齐”,可以这么说.也就是说,在比RSS更复杂的情况下,特定元素中可能缺少子元素,使得一个序列缩短一个(没有间隙).所以结果可能实际上是不正确的.
事实上,有没有更好的方式,或者是你在Clojure中这样做的方式？
那这个呢？
(reduce (fn [h item]
(assoc h (xml1-> item :title text)
(xml1-> item :link text)))
{} (xml-> Feed :channel :item))
