我一直在使用此页面 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
谢谢
答案 0 :(得分:2)
Right ...
只表示操作可能有错误。您可以使用case
语句处理此问题:
case parse csvFile "(stdin)" str of
Left err -> handle err
Right res -> doStuff res
整个Either
设计模式可让您以一种很好的方式处理代码中的任意错误。您可以随心所欲地处理错误,而且您不必担心Haskellers讨厌的运行时异常。
正如Thomas在评论中所指出的那样,您也可以使用either
函数来执行与case语句相同的操作。