Haskell将字符串解析为数组数组

Question

我需要将一个字符串解析为数组数组。 字符串通过“ \\ n”字符在数组中拆分。 每个数组都用“，”或“;”分割 迹象。

例如： 4;5\\n6,7 -----> [[4,5][6,7]]

import qualified Text.Parsec as P (char,runP,noneOf,many,(<|>),eof)
import Text.ParserCombinators.Parsec
import Text.Parsec.String 
import Text.Parsec.Char
import Text.PrettyPrint.HughesPJ
import Data.Maybe

newtype CSV = CSV [Row] deriving (Show,Eq)
type Row = [String]

parseCSV :: Parser CSV
parseCSV = do
  return $ CSV (endBy (sepBy (many (noneOf ",\n")) (Text.Parsec.Char.char ',')) (Text.Parsec.Char.char '\n'))

runParsec :: Parser a -> String -> Maybe a
runParsec parser input = case P.runP parser () "" input of
    Left  _ -> Nothing
    Right a -> Just a

但是，当我尝试运行代码时，由于数据类型错误而导致错误

Answer 1

这是将runParsec parseCSV "4;5\\n6,7\\n"解析为Just (CSV [["4","5"],["6","7"]]) 。

parseCSV :: Parser CSV
parseCSV = CSV <$> csv
  where
    csv = row `endBy` char '\n'
    row = many (noneOf ",;\n") `sepBy` oneOf ",;"