Haskell Text.CSV 模块

Question

为什么我会为 parseCSV 函数输入 Either Text.Parsec.Error.ParseError CSV，尽管在​​文档中说输出是 Either ParseError CSV？我想将 CSV 文件导入 Haskell，然后从中导出特定列，然后计算该列的统计信息。

我导入一个 CSV 文件，例如：

data = parseCSV "/home/user/Haskell/data/data.csv"

noEmpRows = either (const []) (filter (\row -> 2 <= length row))

readIndex :: Read cell => Either a CSV -> Int -> [cell]

readIndex csv index = map (read . (!!index)) (noEmpRows csv)

然后当我想readIndex data 9 :: [Integer] 时出现错误。

我还尝试了一个函数parseCSVFromFile。

https://hackage.haskell.org/package/csv-0.1.2/docs/Text-CSV.html#t:CSV

提前感谢您的帮助。

Answer 1

您真正要问的问题是 我如何使用 Text.CSV？

给定文件 test.csv：

1,Banana,17
2,Apple,14
3,Pear,21

GHCi 中的这一行：

Prelude> Text.CSV.parseCSVFromFile "test.csv"
Right [["1","Banana","17"],["2","Apple","14"],["3","Pear","21"],[""]]

如果你想提取一列，然后为它构建一个函数：

main :: IO ()
main = do
  test_csv <- parseCSVFromFile "test.csv"
  case test_csv of
    Right csv -> print (extractColumn csv 2 :: [Int])
    Left err -> print err

extractColumn :: Read t => CSV -> Int -> [t]
extractColumn csv n =
  [ read (record !! n) | record <- csv
                       , length record > n
                       , record /= [""] ]

这应该会产生输出[17,14,21]。

因为这里有足够的失败空间（一行可能包含比n 更少的字段，或者给定行上字段n 中的字符串可能无法读取为类型t） ，如果发生错误，您可能需要处理或报告。如果上面的代码包含的字段太少，则会丢弃该行，如果该字段不是Int，则抛出Prelude.read: no parse。考虑readEither 或readMaybe。