Używanie `line-seq` z` reader`, kiedy plik jest zamknięty?

Question

Czytam linie z pliku tekstowego, używając (line-seq (reader "input.txt")). Ta kolekcja jest następnie przekazywana i używana przez mój program.

Jestem zaniepokojony, że może to być zły styl, ponieważ nie deterministycznie zamykam plik. Wyobrażam sobie, że nie mogę użyć (with-open (line-seq (reader "input.txt"))), ponieważ strumień plików zostanie prawdopodobnie zamknięty, zanim przejdę całą sekwencję.

Czy należy unikać lazy-seq w połączeniu z plikami reader? Czy istnieje inny wzór, którego powinienem tu użyć?

Answer 1

Od tego tak naprawdę nie ma jasnej odpowiedzi (to wszystko miesza się do uwag dotyczących pierwszej odpowiedzi), oto esencja:

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

To zmusi całą sekwencję linii do odczytu i zamknij plik. Następnie możesz przekazać wynik całego tego wyrażenia.

Gdy mamy do czynienia z dużymi plikami, możesz mieć problemy z pamięcią (trzymając cały przebieg linii w pamięci) i wtedy jest to dobry pomysł, aby odwrócić ten program:

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

Może lub nie może wymagać w tym przypadku, w zależności od tego, co mój program zwraca i/lub czy mój program leniwie lub nie leci.

Answer 2

Wygląda na to, że clojure.contrib.duck-streams/read-lines jest właśnie tym, czego szukasz. read-lines zamyka plik, gdy nie ma danych wejściowych i zwraca sekwencję podobnie jak line-seq. Spróbuj spojrzeć na kod źródłowy z read-lines.