Stringing out XML blobs

get-bars.clj

#!/usr/bin/env clj

(defn get-bars
  [xml]
  (loop [xml xml
         bars []]
    (if (clojure.string/blank? xml)
      bars
      (let [[_ bar xml2 :as r] (clojure.string/split xml #"<bar>|</bar>" 3)]
        (if (nil? bar)
          bars
          (recur xml2 (conj bars bar)))))))

(defn lazy-bars
  [xml]
  (letfn [(ex [xml]
            (let [[_ bar xml2 :as r] (clojure.string/split xml #"<bar>|</bar>" 3)]
              [bar xml2]))]
    (let [[bar xml2] (ex xml)]
      (if (nil? bar)
        nil
        (cons bar (lazy-seq (ex xml2)))))))

(prn (get-bars "<foo><baz><bar>a</bar><bar>B</bar></baz></foo>"))
(prn (lazy-bars "<foo><baz><bar>a</bar><bar>B</bar></baz></foo>"))