青木日記

■ Haskell / 例外補足

例外対応 cat

module Main where
　
import System
import System.IO
import System.IO.Error
　
main =
    do
        args <- getArgs
        case args of
          [a] -> catch (do cs <- readFile a
                           putStr cs)
                       (\e -> do hPutStrLn stderr ("read fail: " ++ ioeGetErrorString e))
          _   -> do hPutStrLn stderr "1 arg must be given"
                    exitWith (ExitFailure 1)

でもこういうことをやるなら明らかに Ruby のほうが短いわけだ。

unless ARGV.size == 1
  $stderr.puts "Just 1 arg needed"
  exit 1
end
begin
  print File.read(ARGV[0])
rescue => err
  $stderr.puts "read fail: #{err.message}"
  exit 1
end