XML to CSV sample code

xml2cvs.clj

ns st.core
  (:gen-class))

(def init-state  {:matching-enabled false
                  :p-headers true
                  :headers []
                  :values []})

(defn print-line [obj]
  (when (obj :p-headers) (println (clojure.string/join "," (obj :headers))))
  (println (clojure.string/join "," (obj :values))))

(defn process [obj, item]
  (cond
    (re-find #"<ITEM>" item) (assoc obj :matching-enabled true)
    (re-find #"</ITEM>" item) (do
                                (print-line obj)
                                (assoc init-state :p-headers false))
    (:matching-enabled obj) (do
                              (assoc obj :headers (conj (:headers obj)
                                                        (second
                                                         (re-find #"<([^>]+)>" item)))
                                     :values (conj (:values obj)
                                                   (second
                                                    (re-find #">([^<]+)<" item)))))))

(defn read-file [name]
  (with-open [rdr (clojure.java.io/reader name)]
    (into [] (reduce process init-state (line-seq rdr)))))

(defn -main []
  (read-file "file.xml"))