Usando `line-seq` con` reader`, ¿cuándo se cierra el archivo?

Question

Estoy leyendo líneas de un archivo de texto usando (line-seq (reader "input.txt")). Esta colección es luego pasada y utilizada por mi programa.

Me preocupa que este sea un mal estilo, ya que no estoy cerrando el archivo de manera determinista. Imagino que no puedo usar (with-open (line-seq (reader "input.txt"))), ya que la secuencia de archivos se cerrará antes de atravesar toda la secuencia.

¿Se debe evitar lazy-seq junto con reader para archivos? ¿Hay algún patrón diferente que debería usar aquí?

Answer 1

Dado que esta realidad no tiene una respuesta clara (todo se mezcla en los comentarios sobre la primera respuesta), aquí está la esencia de la misma:

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

que obligará a toda la secuencia de líneas para ser leído y cierra el archivo. A continuación, puede pasar el resultado de toda esa expresión.

Cuando se trata de archivos de gran tamaño, es posible que tenga problemas de memoria (que sostiene toda la secuencia de líneas en la memoria) y es entonces cuando se trata de una buena idea para invertir el programa:

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

Usted puede o no puede necesitar doall en ese caso, dependiendo de lo que mi-programa regrese y/o si mi-programa consume la secuencia perezosamente o no.

Answer 2

Parece que el clojure.contrib.duck-streams/read-lines es justo lo que está buscando. read-lines cierra el archivo cuando no hay entrada y devuelve la secuencia como line-seq. Intente ver el código fuente de read-lines.