Clojure XML Parsing

Question

Non riesco a trovare alcuna informazione su come analizzare documenti xml e accedere agli elementi.

Ho trovato due modi per analizzare il documento XML

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

e

(parse-seq file) 

ma io riesco a trovare alcuna info su come elaborare la struttura risultante?

Il file di origine si riferisce a zip-query.clj su come interrogare il risultato ma sembra che manchi anche questo.

Answer 1

Si supponga di avere il seguente codice XML per analizzare nel file:

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

si carica clojure.xml:

user=> (use 'clojure.xml) 

quando analizzato, il xml avrà la seguente struttura:

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

e quindi è possibile vedere il contenuto del file per ottenere il contenuto di e low-node:

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

("my text") 

Allo stesso modo, se si voleva avere accesso a tutta la lista delle informazioni sul livello basso-nodo, avrebbe cambiato il :when predicato (= (: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"]}) 

Questo funziona perché le parole chiave può funzionare come funzioni. Vedere Questions about lists and other stuff in Clojure e Data Structures: Keywords

Answer 2

La risposta di cui sopra funziona, ma lo trovo molto più facile da usare clojure.data.zip.xml (usato per essere clojure-contrib.zip-filter.xml prima Clojure 1.3).

di file:

myfile.xml:

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

codice:

; 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") 

Purtroppo, è necessario tirare in una dipendenza da data.zip per ottenere questo bel funzionalità di lettura/filtro. Vale la pena la dipendenza :) In lein sarebbe (a partire dal 17-ago-2013):

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

E per quanto riguarda la documentazione di data.zip.xml ... Mi basta guardare il relativamente piccolo file sorgente here a guarda cosa è possibile Un'altra buona risposta SO è here.