File I/O

优质

小牛编辑

126浏览

2023-12-01

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

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

让我们来探讨一下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”