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》。