計算機科学のブログ

HaskellのI/O ファイルの操作 正格なIO、Text型、readFile関数、writeFile関数、コマンドライン引数、System.Environmentモジュール、getArgs関数、簡易なcpプログラムの実装

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

コード

import System.Environment ( getArgs )
import qualified Data.Text as T
import qualified Data.Text.IO as TIO

main :: IO ()
main = do
    args <- getArgs
    let src = head args
    let dst = args !! 1
    contents <- TIO.readFile src
    TIO.writeFile dst contents

入出力結果(Terminal, Zsh)

% cat hello.txt 
Hello world!
Good bye world!
% runghc sample1.hs hello.txt hello1.txt
% cat hello.txt 
Hello world!
Good bye world!
% cat hello1.txt 
Hello world!
Good bye world!
% diff hello.txt hello1.txt 
%