我有一个接受Reddit注释并发出回复的功能。我希望此功能映射到Reddit上发布的每个新评论。
我应该如何从reddit获得评论?只经常提取100条最近的评论似乎有些浪费,因此不要错过任何评论。一种使所有评论都比特定评论更新的方法非常好。
理想情况下,评论只是一个懒惰列表,所以我可以这样做
looping := false
pass = 0
max = 2
^r::
pass++
looping := !true
while (looping & pass < max)
{
Send, stack overflow, save me!
}
pass = 0
return
或者我可以编写一个交互函数:
f :: Comment -> IO ()
getComments :: IO [Comment]
main :: IO ()
main = do
comments <- getComments
traverse_ f comments
答案 0 :(得分:2)
comments endpoint具有查询参数before
。将查询参数设置为任何评论的name
的请求将仅返回 比该评论新的评论。
请注意,评论的name
不是它的link_id
,这就是我所坚持的。
例如,对www.reddit.com/r/foobar/comments.json?sort=new&before=t1_e9eud8s的请求将返回使用name: t1_e9eud8s