はてなフォトライフから並行に画像をダウンロードしてくる例

example_of_download_images_from_hatena_fotolife.clj

(use '[clojure.java.io :only (copy output-stream)])

(def pic-url "http://blog.stackoverflow.com/wp-content/uploads/justice-league-small.jpg")

(defn input-stream [pic-url]
  (-> pic-url java.net.URL. .openConnection .getInputStream))

(defn get-byte-array-stream [input-stream]
  (let [byte-array-stream (java.io.ByteArrayOutputStream.)]
    (copy input-stream byte-array-stream)
    (.toByteArray byte-array-stream)))

(defn save-pic [pic-url]
  (let [filename (str "/Users/yasuhisa/" (second (re-find #".*\/(.+)$" pic-url)))]
    (with-open [output (output-stream filename)]
      (copy
       (get-byte-array-stream (input-stream pic-url)) output))))

(save-pic pic-url)

(def my-source (slurp* "http://f.hatena.ne.jp/syou6162"))

(pmap save-pic (map second (re-seq #"img.*?class=\"foto_thumb\" src=\"(.*?)\"" my-source)))