從套接字服務器讀取xml輸入clojure

Question

我想從套接字解析xml。我已經嘗試了很多使用clojure.xml/parse的例子，但沒有突破。下面是示例代碼，我開始與只讀取基於輸入文本：

(with-open [sock (Socket. host port) 
      reader (io/reader sock) 
      response (StringWriter.)] 
    (while (.isConnected sock) 
    (io/copy reader response) 
    (log/info response))) 

Answer 1

這裏是doing it using Enlive一個辦法：

(ns tst.clj.core 
    (:use clj.core 
     tupelo.test) 
    (:require 
    [clojure.java.io :as io] 
    [net.cgrand.enlive-html :as en-html] 
    [tupelo.core :as t])) 
(t/refer-tupelo) 

; Discard any xml nodes of Type="A" or Type="B" (plus blank string nodes) 
(dotest 
    (let [xml-str  "<ROOT> 
         <Items> 
         <Item><Type>A</Type><Note>AA1</Note></Item> 
         <Item><Type>B</Type><Note>BB1</Note></Item> 
         <Item><Type>C</Type><Note>CC1</Note></Item> 
         <Item><Type>A</Type><Note>AA2</Note></Item> 
         </Items> 
        </ROOT>" 
     enlive-tree (->> xml-str 
         java.io.StringReader. 
         en-html/html-resource 
         first)] 
     (spyx-pretty enlive-tree))) 

與結果：

enlive-tree => 
{:tag :ROOT, 
:attrs nil, 
:content 
("\n      " 
    {:tag :Items, 
    :attrs nil, 
    :content 
    ("\n      " 
    {:tag :Item, 
    :attrs nil, 
    :content 
    ({:tag :Type, :attrs nil, :content ("A")} 
     {:tag :Note, :attrs nil, :content ("AA1")})} 
    "\n      " 
    {:tag :Item, 
    :attrs nil, 
    :content 
    ({:tag :Type, :attrs nil, :content ("B")} 
     {:tag :Note, :attrs nil, :content ("BB1")})} 
    "\n      " 
    {:tag :Item, 
    :attrs nil, 
    :content 
    ({:tag :Type, :attrs nil, :content ("C")} 
     {:tag :Note, :attrs nil, :content ("CC1")})} 
    "\n      " 
    {:tag :Item, 
    :attrs nil, 
    :content 
    ({:tag :Type, :attrs nil, :content ("A")} 
     {:tag :Note, :attrs nil, :content ("AA2")})} 
    "\n      ")} 
    "\n     ")} 

• 有additional information in this question。
• 您還可能有興趣在The Clojure Cookbook (O'Reilly)