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
%