Haskell Parsec功能

时间:2011-12-06 22:49:30

标签: haskell csv parsec

我一直在使用此页面 http://book.realworldhaskell.org/read/using-parsec.html 我试图让CSV文件解析器工作,但我注意到了

parse csvFile "(stdin)" str

始终返回

Right [["s","o"],["h","i"]]

有没有办法进行解析,只返回我可以在我的代码中使用的数组数组?

例如代码:

main = mainLoop []

mainLoop :: [[String]] -> IO ()
mainLoop db = do
     answer <- getLine
     case words answer of
        ("load":x) -> do
                str <- readFile (head x)
                mainLoop $ parseCSV str
        ("quit":_) -> return ()
        ("help":_) -> do 
                        putStrLn "This is your help"
                        mainLoop db
        otherwise  -> putStrLn "Not sure what you want me to do! :(" >> mainLoop db

csvFile = endBy line eol
line = sepBy cell (char ',')
cell = many (noneOf ",\n")
eol = char '\n'

parseCSV :: String -> Either ParseError [[String]]
parseCSV input = parse csvFile "(unknown)" input

谢谢

1 个答案:

答案 0 :(得分:2)

Right ...只表示操作可能有错误。您可以使用case语句处理此问题:

case parse csvFile "(stdin)" str of
  Left  err -> handle err
  Right res -> doStuff res

整个Either设计模式可让您以一种很好的方式处理代码中的任意错误。您可以随心所欲地处理错误,而且您不必担心Haskellers讨厌的运行时异常。

正如Thomas在评论中所指出的那样,您也可以使用either函数来执行与case语句相同的操作。