Clojure XML解析

Question

我找不到任何关于如何解析xml文档和访问元素的信息。

我发现了两种解析xml文档的方法

(clojure.zip/xml-zip (clojure.xml/parse file))

和

(parse-seq file)

但是我似乎可以找到任何关于如何处理产生的结构的信息？

关于如何查询结果，源文件的引用是zip-query.clj，但似乎也没有。

Answer 1

假设您要在文件中解析以下xml：

<high-node>
   <low-node>my text</low-node>
</high-node>

加载clojure.xml：

user=> (use 'clojure.xml)

解析时，xml将具有以下结构：

{:tag :high-node, :attrs nil, :content [{:tag :low-node, :attrs nil, :content ["my text"]}]}

然后，您可以对文件的内容进行排序，以获得low-node的内容

user=> (for [x (xml-seq 
              (parse (java.io.File. file)))
                 :when (= :low-node (:tag x))]
         (first (:content x)))

("my text")

类似地，如果您希望访问低节点上的整个信息列表，则可以将:when谓词更改为(= (:high-node (:tag x)))

user=> (for [x (xml-seq 
              (parse (java.io.File. file)))
                 :when (= :high-node (:tag x))]
         (first (:content x)))

({:tag :low-node, :attrs nil, :content ["my text"]})

这是因为关键字可以作为函数运行。请参阅Questions about lists and other stuff in Clojure和Data Structures: Keywords

Answer 2

上面的答案是有效的，但我发现使用clojure.data.zip.xml (在Clojure1.3之前是clojure-contrib.zip-filter.xml )要容易得多。

文件：

myfile.xml

<songs>
  <track id="t1"><name>Track one</name></track>
  <track id="t2"><name>Track two</name></track>
</songs>

代码：

; Clojure 1.3
(ns example
  (:use [clojure.data.zip.xml :only (attr text xml->)]) ; dep: see below
  (:require [clojure.xml :as xml]
            [clojure.zip :as zip]))

(def xml (xml/parse "myfile.xml"))
(def zipped (zip/xml-zip xml))
(xml-> zipped :track :name text)       ; ("Track one" "Track two")
(xml-> zipped :track (attr :id))       ; ("t1" "t2")

不幸的是，您需要引入对data.zip的依赖才能获得这种出色的读取/过滤功能。这是值得依赖的:)在lein中应该是(截至2013年8月17日)：

[org.clojure/data.zip "0.1.1"]

至于data.zip.xml的文档...我只查看相对较小的源文件here，看看有什么可能。另一个很好的答案也是here。