Leggere un file riga per riga

Question

Sto provando a leggere un file riga per riga, ma non so come smettere quando raggiungo l'EOF.

ho questo codice:

readWholeFile = do inputFile <- openFile "example.txt" ReadMode 
       readALine inputFile 

readALine x = do y <- hGetLine x 
       print y 
       readALine x 

ed è ovviamente terminata sempre sollevare un'eccezione.

Come posso risolvere?

Edit: messaggio di errore esatto è:

*** Exception: example.txt: hGetLine: end of file 

Answer 1

Quello che state cercando è, hIsEOF

Partenza http://book.realworldhaskell.org/read/io.html

Answer 2

È possibile utilizzare hIsEOF per verificare lo stato EOF manualmente prima di leggere un linea, oppure puoi semplicemente utilizzare la funzione readFile prontamente disponibile (lazy).

Answer 3

Prima di leggere ulteriormente, è possibile testare la maniglia x con hIsEOF. hGetLine fallisce quando si incontra la fine del file durante la lettura del primo carattere della riga

Answer 4

Un'altra soluzione. È possibile file di lettura pigra con readFile, diviso pigro on-demand e prendere la linea risultato per riga:

readLines :: FilePath -> IO [String] 
readLines = fmap lines . readFile