Haskell Language Leyendo desde los manejadores de archivos


Ejemplo

Al igual que en otras partes de la biblioteca de E / S, las funciones que utilizan implícitamente un flujo estándar tienen una contraparte en System.IO que realiza el mismo trabajo, pero con un parámetro adicional a la izquierda, de tipo Handle , que representa el flujo que se está manejado. Por ejemplo, getLine :: IO String tiene una contraparte hGetLine :: Handle -> IO String .

import System.IO( Handle, FilePath, IOMode( ReadMode ), 
                  openFile, hGetLine, hPutStr, hClose, hIsEOF, stderr )

import Control.Monad( when )


dumpFile :: Handle -> FilePath -> Integer -> IO ()

dumpFile handle filename lineNumber = do      -- show file contents line by line
    end <- hIsEOF handle
    when ( not end ) $ do
        line <- hGetLine handle
        putStrLn $ filename ++ ":" ++ show lineNumber ++ ": " ++ line
        dumpFile handle filename $ lineNumber + 1


main :: IO ()

main = do
    hPutStr stderr "Type a filename: "
    filename <- getLine
    handle <- openFile filename ReadMode
    dumpFile handle filename 1
    hClose handle

Contenido del archivo example.txt :

This is an example.
Hello, world!
This is another example.

Entrada:

Type a filename: example.txt

Salida:

example.txt:1: This is an example.
example.txt:2: Hello, world!
example.txt:3: This is another example