Clojure：读取xml

在Clojure中读取XML是很容易的。比如我们有一个名叫strings.xml文件：

 <?xml version="1.0" encoding="utf-8"?>
 <resources>
     <string name="site-title">FY行情在线</string>
     <string name="home">主页</string>
 </resources>

读取的步骤如下：

1. 在project.clj中添加data.zip的依赖

[org.clojure/data.zip "0.1.1"]

2. 创建一个reader.clj程序（或是其它名字），代码如下：

 (ns demo.utilities.conf-string-reader
   (:use [clojure.data.zip.xml :only (attr text xml->)]) ; dep: see below
   (:require [clojure.xml :as xml]
             [clojure.zip :as zip]))

 (def xml (xml/parse " strings.xml"))

 (def zipped (zip/xml-zip xml))

 (defn reader []
   (into {}
         (for [[k v]
               (map vector
                    (xml-> zipped :string (attr :name))
                    (xml-> zipped :string text))]
           [(keyword k) v])))

让我们调用一下reader函数吧，出来的结果就是{:site-title “FY行情在线”, :home “主页”}。

其中，指定读取XML的内容的语句是(xml-> zipped :string text)，输出的结果为[“FY行情在线”, “主页”]，读取XML的特定属性的语句是(xml-> zipped :string (attr :name))，输出的结果为[“site-title”, “home”]。

至于(into {}….)这个语句的作用是将两个list合并成一个map，而for的作用是将第一个list的值全部转换为keyword。关于这块可以参考我的另一篇文章：《Clojure：如何将两个list合并成一个map》。