[file] Clojure 1.3에서 파일을 읽고 쓰는 방법

우리가 여기서 이진 파일이 아닌 텍스트 파일 만하고 있다고 가정합니다.

1 번 : 전체 파일을 메모리로 읽는 방법

(slurp "/tmp/test.txt")

정말 큰 파일 일 때는 권장하지 않습니다.

번호 2 : 파일을 한 줄씩 읽는 방법

(use 'clojure.java.io)
(with-open [rdr (reader "/tmp/test.txt")]
  (doseq [line (line-seq rdr)]
    (println line)))

with-open매크로 리더 본체의 단부에서 폐쇄되어 처리한다. reader 함수는 문자열 (URL 등도 가능)을로 강제 변환합니다 BufferedReader. line-seq게으른 시퀀스를 제공합니다. 게으른 seq의 다음 요소를 요구하면 판독기에서 행을 읽습니다.

Clojure 1.7부터는 텍스트 파일을 읽는 데 변환기 를 사용할 수도 있습니다 .

3 번 : 새 파일에 쓰는 법.

(use 'clojure.java.io)
(with-open [wrtr (writer "/tmp/test.txt")]
  (.write wrtr "Line to be written"))

다시, 신체의 끝에 폐쇄되어 with-open있는지 확인하십시오 BufferedWriter. Writer는 BufferedWriterjava interop을 통해 사용 하는 문자열을로 강제 변환합니다 .(.write wrtr "something").

spit의 반대 도 사용할 수 있습니다 slurp.

(spit "/tmp/test.txt" "Line to be written")

4 번 : 기존 파일에 줄을 추가합니다.

(use 'clojure.java.io)
(with-open [wrtr (writer "/tmp/test.txt" :append true)]
  (.write wrtr "Line to be appended"))

위와 동일하지만 추가 옵션이 추가되었습니다.

또는 다시 spit반대의 경우 slurp:

(spit "/tmp/test.txt" "Line to be written" :append true)

추신 : 다른 것을 읽지 않고 파일을 읽고 쓰는 사실에 대해 더 명확하게 설명하기 위해 먼저 File 객체를 만든 다음 BufferedReader또는 Writer 로 강제 변환 할 수 있습니다 .

(reader (file "/tmp/test.txt"))
;; or
(writer (file "tmp/test.txt"))

파일 함수는 clojure.java.io에도 있습니다.

PS2 : 때로는 현재 디렉토리 ( “.”)가 무엇인지 쉽게 볼 수 있습니다. 두 가지 방법으로 절대 경로를 얻을 수 있습니다.

(System/getProperty "user.dir") 

또는

(-> (java.io.File. ".") .getAbsolutePath)

답변

(def s (slurp "filename.txt"))

(spit "newfile.txt" s)

(spit "filename.txt" s :append true)

(ns file.test
  (:require [clojure.java.io :as io]))

(let [wrtr (io/writer "test.txt")]
  (.write wrtr "hello, world!\n")
  (.close wrtr))

(let [wrtr (io/writer "test.txt" :append true)]
  (.write wrtr "hello again!")
  (.close wrtr))

(let [rdr (io/reader "test.txt")]
  (println (.readLine rdr))
  (println (.readLine rdr)))
; "hello, world!"
; "hello again!"

(use 'clojure.java.io)

(defn read-lines [filename]
  (let [rdr (reader filename)]
    (defn read-next-line []
      (if-let [line (.readLine rdr)]
       (cons line (lazy-seq (read-next-line)))
       (.close rdr)))
    (lazy-seq (read-next-line)))
)

(defn echo-file []
  (doseq [line (read-lines "myfile.txt")]
    (println line)))

(let [file-content-str (slurp (clojure.java.io/resource "public/myfile.txt")])

(require '[clojure.java.io :as io])
(io/copy (io/file "/etc/passwd") \*out*\)

(->> "data.csv"
      io/resource
      io/reader
      line-seq
      (drop 1))