Contents
やりたいこと
昨日まででヘッダーは読み込めるようになったため、今度はピクセルの情報を読みだす。
プログラム
プログラムは以下の感じ。import System.IO import System.Environment (getArgs) main = do args <- getArgs if length args <= 1 then do print "usage : ./pgm-input input.pgm output.pgm" else do infile <- openFile (head args) ReadMode -- Read PGM Header pgm_type <- hGetLine infile pgm_comment <- hGetLine infile pgm_max_brightness <- hGetLine infile pgm_size <- hGetLine infile -- Read PGM Pixels- src_pixels <- hGetContents infile -- Output PGM File fh <- openFile (args !! 1) WriteMode hPutStrLn fh pgm_type hPutStrLn fh pgm_comment hPutStrLn fh pgm_max_brightness hPutStrLn fh contents hPutStrLn fh pgm_size hPutStrLn fh src_pixels hClose infile hClose fh
入力画像
![car](http://160.16.71.152:12080/wp-content/uploads/2013/07/car-300x225.png)
出力画像
![car-out](http://160.16.71.152:12080/wp-content/uploads/2013/07/car-out-300x225.png)