計算機科学のブログ

HaskellのI/O ファイルの操作 ファイルを開いて閉じる System.IOモジュール、openFile関数、ReadMode、hClose関数、hGetLine関数、EOF(End Of File)、hIsEOF関数、真偽値

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON 24(ファイルの操作)、24.1(ファイルを開いて閉じる)のクイックチェック24-1、クイックチェック24-2の解答を求めてみる。

コード

import System.IO

main :: IO ()
main = do
    fh <- openFile "stuff.txt" ReadMode
    hClose fh

入出力結果(Terminal, Zsh)

% ./sample01 
sample01: stuff.txt: openFile: does not exist (No such file or directory)
% touch stuff.txt
% ./sample01 
% 

コード

import System.IO
import System.Environment ( getArgs )

main :: IO ()
main = do
    args <- getArgs
    let filePath = head args
    file <- openFile filePath ReadMode 
    _ <- hGetLine file
    eof <- hIsEOF file
    secondLine <- if not eof
                  then hGetLine file
                  else return "empty"
    putStrLn secondLine
    hClose file
    putStrLn "done!"

入出力結果(Terminal, Zsh)

% runghc sample02.hs
= sample02.hs: Prelude.head: empty list
% runghc sample02.hs
sample02.hs: Prelude.head: empty list
% runghc sample02.hs hello.txt 
Good bye world!
done!
% runghc sample02.hs stuff.txt 
sample02.hs: stuff.txt: hGetLine: end of file
% echo 'first line' > temp02.txt
% runghc sample02.hs temp02.txt 
empty
done!
%