プログラミング、アカデミック、何か面白いこと。 記載されているものは基本的に私が所属する団体とは関係がありません。

  1. アカデミック
  2. 20 view

[Haskell]PGMファイルを読み込む part1

やりたいこと

HaskellでPGMファイルを生成することができたから、
今度は入力出来るようにしてみたい。

プログラム

とりあえずヘッダーを読み込んで出力するところまで。

import System.IO
import System.Environment (getArgs)

main = do
    args <- getArgs
    if length args == 0 then do
        print "usage : ./pgm-input test.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
        hClose infile

        -- Output PGM File
        putStrLn pgm_type
        putStrLn pgm_comment
        putStrLn pgm_max_brightness
        putStrLn pgm_size

実行してみる。

$ ./pgm-input test.pgm
P5
# PGM type grayscale image
255 255
255

アカデミックの最近記事

  1. [触ってみた]Microsoft Quantum Development Kit

  2. Tensorboardを使ってニューラルネットワークと学習の状況を可視化する

  3. [機械学習]各種Pythonライブラリ入りの実験用Dockerイメージを作った

  4. [OpenCV][Ruby]Webページのデザイン崩れ確認の自動化

  5. [機械学習]本番導入までの道のり

関連記事

PAGE TOP