1

我正在用 Haskell 编写一个应用程序，其中作为我的持久性系统的一部分，我将我的数据结构转换为 JSON 格式，然后将它们写入磁盘。稍后，我想通过读取文件并通过 JSON 解析器运行它来重构对象来加载它们。

但是，读取部分出现问题，导致 JSON 模块无法解析字符串。

首先，我在工作中使用 Text.JSON (json-0.5)。我正在写入文件的数据类型称为WorkoutEvent，并且我已经验证它可以使用以下命令完美地编码和解码为 JSON：

decode $ encode evt :: Result WorkoutEvent

因此，考虑到这一点，我创建了一堆事件并将它们写入一个文件，生成的文件如下所示（当我在文本编辑器中打开它时）：

{"type":"AddWorkout","data":{"uuid":"473b7964-8197-49ac-be3b-2b3804f1fbb5","date":"2012-03-30","workout_type":"Pushups","description":"","sets":[6]}}
{"type":"AddWorkout","data":{"uuid":"9f83363a-5298-4778-9c80-7dfa0d2ea6f9","date":"2012-04-02","workout_type":"Pushups","description":"","sets":[6,6]}}
{"type":"AddWorkout","data":{"uuid":"a60806a0-efd6-4647-bc62-a48298ce55cd","date":"2012-04-04","workout_type":"Pushups","description":"","sets":[]}}

等等等等。文件中的每一行代表我已序列化的一个完整对象。

然后我使用 readFile 加载文件，我没有发现任何问题：

*Main> f <- readFile "/home/savanni/Documents/workouts.json-stream"
*Main> take 50 f
"{\"type\":\"AddWorkout\",\"data\":{\"uuid\":\"473b7964-8197"
*Main> putStrLn $ take 50 f
{"type":"AddWorkout","data":{"uuid":"473b7964-8197

到目前为止，一切都很好。当我尝试解码数据时，问题就来了：

*Main> decode f :: Result [WorkoutEvent]
Error "Invalid tokens at end of JSON string: \"{\\\"type\\\":\\\"A\""

如果我说putStrLn f我看到了输出并且看到输出中的任何地方都没有 \ 序列。如果我只是f在命令行输入，我会看到上面的转义序列，但我在任何地方都看不到任何多个-\ 转义序列。

那么，最后，我应该如何使用 Text.JSON 模块从文件中读取 JSON 数据？

4

1 回答 1

3

每行都是有效的 JSON，但整个文件不是，因此您需要逐行解码。类似（未经测试）：

map (decode :: String -> Result WorkoutEvent) $ lines f
于 2012-07-05T19:15:04.433 回答