Sử dụng `line-seq` với` reader`, khi nào tệp được đóng?

Question

Tôi đang đọc các dòng từ một tệp văn bản sử dụng (line-seq (reader "input.txt")). Bộ sưu tập này sau đó được thông qua và được chương trình của tôi sử dụng.

Tôi lo ngại rằng đây có thể là kiểu xấu, tuy nhiên, vì tôi không xác định tệp đóng. Tôi tưởng tượng rằng tôi không thể sử dụng (with-open (line-seq (reader "input.txt"))), vì luồng tệp sẽ có khả năng bị đóng trước khi tôi duyệt qua toàn bộ chuỗi.

Có nên tránh lazy-seq kết hợp với reader cho tệp không? Có một mô hình khác tôi nên sử dụng ở đây không?

Answer 1

Vì đây không thực sự có một câu trả lời rõ ràng (nó tất cả trộn vào ý kiến ​​về câu trả lời đầu tiên), đây là bản chất của nó:

(with-open [r (reader "input.txt")] 
    (doall (line-seq r))) 

Điều đó sẽ buộc toàn bộ chuỗi các dòng để được đọc và đóng tệp. Sau đó, bạn có thể chuyển kết quả của toàn bộ biểu thức đó xung quanh.

Khi giao dịch với các tập tin lớn, bạn có thể có vấn đề bộ nhớ (giữ toàn bộ chuỗi các dòng trong bộ nhớ) và đó là khi đó là một ý tưởng tốt để đảo ngược chương trình:

(with-open [r (reader "input.txt")] 
    (doall (my-program (line-seq r)))) 

Bạn có thể hoặc có thể không cần doall trong trường hợp đó, tùy thuộc vào những gì chương trình của tôi trở lại và/hoặc chương trình của tôi tiêu thụ các chuỗi lazily hay không.

Answer 2

Có vẻ như clojure.contrib.duck-streams/read-lines chỉ là những gì bạn đang tìm kiếm. read-lines đóng tệp khi không có đầu vào và trả về chuỗi giống như line-seq. Hãy thử xem mã nguồn của read-lines.