HaskellのI/O ファイルの操作 Unixのcpプログラムの実装、正格なI/O、Data.Textモジュール、Data.Text.IOモジュール、Text型、readFile関数、writeFile関数

入門Haskellプログラミング
 楽天ブックス
Yahoo!ショッピング
au PAY マーケット

開発環境

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

コード

{-# LANGUAGE OverloadedStrings #-}

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

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

入出力結果(Terminal, Zsh)

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