Clojure XML Parsing

Question

No encuentro ninguna información sobre cómo analizar documentos XML y acceder a elementos.

he encontrado dos maneras de analizar el documento XML

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

y

(parse-seq file) 

pero yo puedo encontrar ninguna información sobre cómo procesar la estructura resultante?

El archivo de origen hace referencia a zip-query.clj sobre cómo consultar el resultado, pero parece que también falta.

Answer 1

Suponga que tiene la siguiente XML para analizar en su archivo:

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

se carga clojure.xml:

user=> (use 'clojure.xml) 

cuando se analiza, el código XML tendrá la siguiente estructura:

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

y luego puede buscar el contenido del archivo para obtener el contenido de th e low-node:

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

("my text") 

Del mismo modo, si quería tener acceso a toda la lista de información de bajo nodo, que cambiaría el :when predicado a (= (: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"]}) 

Esto funciona porque las palabras clave puede operar como funciones. Ver Questions about lists and other stuff in Clojure y Data Structures: Keywords

Answer 2

La respuesta anterior funciona, pero me parece que sea mucho más fácil de usar clojure.data.zip.xml (solía ser clojure-contrib.zip-filter.xml antes de Clojure 1.3).

archivo:

myfile.xml:

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

código:

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

Desafortunadamente, usted tiene que tirar en una dependencia de data.zip para conseguir esta funcionalidad de lectura/filtro agradable. Vale la pena la dependencia :) En lein sería (a partir del 17-Ago-2013):

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

Y en cuanto a documentación para data.zip.xml ... Sólo miro el relativamente pequeño archivo de origen a here mira lo que es posible Otra buena respuesta SO here, también.