Làm cho Clojure nhận biết và cô lập dòng trong một tệp

Question

Tôi đang cố gắng để Clojure đọc một tệp, đặt dòng đầu tiên trong một biến và phần còn lại trong biến khác. tôi dường như không thể tìm ra cách để làm điều này và rất thích nếu có ai có thể cho tôi một người đứng đầu lên,

Answer 1

;; for Clojure 1.1 
(require '[clojure.contrib.duck-streams :as io]) 
;; for bleeding edge 
(require '[clojure.java.io :as io]) 

(with-open [fr (io/reader "/path/to/the/file")] 
    (let [[first-line & other-lines] (doall (line-seq fr))] 
    ;; do stuff with the lines below... 
    ...)) 

Cập nhật: Ah, chỉ cần nhận ra rằng tôi mất "phần còn lại" từ các câu hỏi để có nghĩa là "phần còn lại của các dòng trong tệp", do đó, ở trên other-lines là một seq của tất cả các dòng trong tệp ngoại trừ tệp đầu tiên.

Nếu bạn cần "một chuỗi chứa phần còn lại của nội dung của tập tin" thay vào đó, bạn có thể sử dụng đoạn mã trên, nhưng sau đó (require '[clojure.contrib.str-utils2 :as str])/(require '[clojure.string :as str]) (tùy thuộc vào phiên bản của Clojure bạn đang sử dụng) và nói (str/join "\n" other-lines) tái gia nhập other-lines thành một chuỗi; hoặc, cách khác, sử dụng một cái gì đó như thế này:

(let [contents (slurp "/path/to/the/file") 
     [first-line rest-of-file] (.split #"\n" contents 2)] 
    ...) 

Answer 2

Clojure đầu:

(require '[clojure.string :as str]) 
(let [[f & r] (str/split (slurp "foo.txt") #"\n")] 
    ... do something with f and r ...) 

ED: Bằng cách nào đó tôi thất bại trong việc nhận ra câu trả lời Michał và nghĩ về việc xóa nó, nhưng kể từ đó là một chút khác nhau và cho thấy clojure .string.split, tôi sẽ không.