Clojure - 文件 I/O

---

Clojure 在使用 I/O 时提供了许多辅助方法。它提供了更简单的类来为文件提供以下功能。

• 读取文件
• 写入文件
• 查看文件是文件还是目录

让我们探讨一下 Clojure 提供的一些文件操作。

将文件内容作为整个字符串读取

如果您想以字符串形式获取文件的全部内容，可以使用clojure.core.slurp方法。slurp 命令打开文件的读取器并读取其所有内容，返回一个字符串。

以下是如何完成此操作的示例。

(ns clojure.examples.hello
   (:gen-class))

;; This program displays Hello World
(defn Example []
   (def string1 (slurp "Example.txt"))
   (println string1))
(Example)

如果文件包含以下行，它们将被打印为 -

line : Example1
line : Example2

一次一行读取文件的内容

如果您想一次一行地以字符串形式获取文件的全部内容，可以使用clojure.java.io/reader方法。clojure.java.io/reader 类创建一个读取器缓冲区，用于读取文件的每一行。

以下示例展示了如何做到这一点。

(ns clojure.examples.hello
   (:gen-class))

;; This program displays Hello World
(defn Example []
   (with-open [rdr (clojure.java.io/reader "Example.txt")]
   (reduce conj [] (line-seq rdr))))
(Example)

如果文件包含以下行，它们将被打印为 -

line : Example1
line : Example2

输出将显示为 -

["line : Example1" "line : Example2"]

写入“至”文件

如果您想写入“to”文件，可以使用clojure.core.spit命令将整个字符串写入文件。spit 命令与 slurp 方法相反。此方法作为写入器打开文件，写入内容，然后关闭文件。

下面是一个例子。

(ns clojure.examples.hello
   (:gen-class))

;; This program displays Hello World
(defn Example []
   (spit "Example.txt"
      "This is a string"))

在上面的示例中，如果您查看Example.txt文件的内容，您将看到“This is a string”的内容。

一次一行写入“至”文件

如果您想一次一行写入“至”文件，可以使用clojure.java.io.writer类。clojure.java.io.writer 类用于创建写入器流，其中数据字节被馈送到流中，然后馈送到文件中。

以下示例展示了如何使用 spit 命令。

(ns clojure.examples.hello
   (:gen-class))

;; This program displays Hello World
(defn Example []
   (with-open [w (clojure.java.io/writer "Example.txt" :append true)]
      (.write w (str "hello" "world"))))
(Example)

执行上述代码时，Example.txt 文件中将出现“hello world”行。append:true 选项是将数据追加到文件中。如果未指定此选项，则每当将数据写入文件时，该文件都会被覆盖。

检查文件是否存在

要检查文件是否存在，可以使用clojure.java.io.file类来检查文件是否存在。以下示例展示了如何实现这一点。

(ns clojure.examples.hello
   (:gen-class))

;; This program displays Hello World
(defn Example []
   (println (.exists (clojure.java.io/file "Example.txt"))))
(Example)

如果文件Example.txt存在，则输出将为true。

从控制台读取

要从控制台读取数据，可以使用read-line语句。以下示例展示了如何使用它。

如果您在 REPL 窗口中输入 (read-line) 命令，您将有机会在控制台窗口中输入一些内容。

user->(read-line)
Hello World

上面的代码将产生以下输出。

“Hello World”