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!
%