貓模擬器

Question

所以我試圖做一個程序，它從一個句柄讀取和寫入到stdout，就像這樣：

import IO 
import System 

cat w = do 
      fromHandle <- getAndOpenFile w ReadMode 
      contents <- hGetContents fromHandle 
      putStr contents 
      putStr "Done." 

getAndOpenFile :: String -> IOMode -> IO Handle 

getAndOpenFile name mode = 
     do 
     catch (openFile name mode) 
     (\_ -> do 
       putStrLn ("Cannot open "++ name ++"\n") 
       return()) 

我是相當新的HS和它看起來這應該是比我爲自己做的更簡單。任何幫助我進一步移動的建議？

用法將是./cat「foo.txt」，並將foo.txt文件中的文本打印到stdOut。

Answer 1

有下面的功能，它做你想做的。

readFile :: FilePath -> IO String 

使用這種與putStr永遠打印IO字符串