計算機科学のブログ

HaskellのI/O - ファイル操作 - ファイルを開いて閉じる - Data.Text, toUpper関数, Data.Text.IO, readFile関数

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

コード

capitalize.hs

import System.Environment ( getArgs )
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
main :: IO ()
main = do
    args <- getArgs
    let filename = head args
    content <- TIO.readFile filename
    TIO.writeFile filename $ T.toUpper content

入出力結果(Terminal, Zsh)

% cat stuff.txt 
Hello, stuff!
Good bye stuff!
% runghc capitalize.hs stuff.txt 
% cat stuff.txt 
HELLO, STUFF!
GOOD BYE STUFF!
%