/ / Wie man Schlüsselwerte aus der geparsten Eingabe von xml.data analysiert - xml, clojure

Wie man Schlüsselwerte von xml.data analysiert, parse Eingabe - xml, clojure

Ich habe Probleme herauszufinden, wasElemente befinden sich in einer geparsten XML-Eingabe, nachdem ich Werte mithilfe des Inhaltsschlüssels extrahiert habe. Wie kann ich anhand der folgenden geparsten XML-Eingabe die Werte für alle Inhaltsschlüssel extrahieren?

#clojure.data.xml.Element{
:tag :Header,
:attrs {},
:content (
#clojure.data.xml.Element{
:tag :ExportType,
:attrs {},
:content ("Tamper Export")}
#clojure.data.xml.Element{
:tag :CurrentDateTime,
:attrs {},
:content ("2012-06-26T15:40:22.063")}
#clojure.data.xml.Element{
:tag :ScheduledDateTime,
:attrs {},
:content ("2012-06-25T00:00:00")}
#clojure.data.xml.Element{
:tag :ExportGuid,
:attrs {},
:content ("{06643D9B-DCD3-459B-86A6-D21B20A03576}")}
#clojure.data.xml.Element{
:tag :FractionalReadIndicator,
:attrs {},
:content ("1")})}

Diese Ausgabe wurde erstellt, indem eine XML-Datei mit data.xml analysiert und dann mit extrahiert wurde

(first (:content parsed-xml-input))

Vielen Dank.

Das Folgende gibt mir nur Gerätetyp und Geräte-ID, die nur ein Teil von: Inhalt in der XML-Datei ist. <DeviceId>80580608</DeviceId><DeviceType>43</DeviceType>

(defn extract-inner-map-val
"Returns a map of embedded :content tag and value."

[item]

(let [key-elem (-> item :content first)
val-elem (-> item :content second)]

[(-> key-elem :content first)
(-> val-elem :content first)]))

(defn extract-content-from-map
"Accepts a sequence of values associated with a map key,
and transforms them into a map of key/value pairs."

[parsed-map]

(into {} (map extract-inner-map-val (:content parsed-map))))

Antworten:

3 für die Antwort № 1

Das kommt im Wesentlichen auf den Baum undAuswahl aller: Inhalt. Mit clojure.zip (Functional Zippers) kannst du das und noch viel mehr machen, aber in diesem Fall ist das ein bisschen schwer, wenn du nur einen Baumspaziergang brauchst.

user> (pprint
(flatten
(map :content (first (tree-seq :content :content (:content data))))))

("Tamper Export"
"2012-06-26T15:40:22.063"
"2012-06-25T00:00:00"
"{06643D9B-DCD3-459B-86A6-D21B20A03576}"
"1")

Sie können wollen, dass es nicht flach wird, das macht es nur schöner.