計算機科学のブログ

HaskellのI/O ファイルの操作 正格なIO、Text型、readFile関数、writeFile関数、コマンドライン引数、System.Environmentモジュール、getArgs関数、大文字で書き換える、toUpper関数

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON 24(ファイルの操作)、24.6(練習問題)Q24-2の解答を求めてみる。

コード

import System.Environment
import qualified Data.Text as T
import qualified Data.Text.IO as TI

main :: IO ()
main = do
    args <- getArgs
    let filePath = head args
    input <- TI.readFile filePath
    TI.writeFile filePath (T.toUpper input)
    putStrLn "done!"

入出力結果(Terminal, Zsh)

% cat hello.txt 
Hello world!
Good bye world!
% runghc capitalize.hs hello.txt 
done!
% cat hello.txt 
HELLO WORLD!
GOOD BYE WORLD!
%