我在Haskell编写了一个守护进程,每隔5分钟从网页上抓取一次信息.
这个守护进程原本可以运行大约50分钟,但后来意外地死了out of memory (requested 1048576 bytes).每次我跑它都会在相同的时间后死亡.将它设置为只睡30秒,它会在8分钟后死亡.
我意识到刮掉网站的代码非常低效(在解析9M的html时,从睡眠时的大约30M到250M),所以我重新编写了它,现在它在解析时只使用了大约15M.认为这个问题已经解决了,我一夜之间就运行了守护进程,当我醒来的时候实际上使用的内存比当晚少.我以为我已经完成了,但是在它开始大约20个小时后,它已经因同样的错误而崩溃了.
我开始研究ghc分析,但我无法让它工作.接下来我开始搞乱rts选项,我尝试设置-H64m默认堆大小比我的程序使用的大,并且还使用-Ksize缩小堆栈的最大大小以查看是否会使它更快崩溃.
尽管我做了很多改变,但守护程序在经过多次迭代后似乎仍然会崩溃.使解析更具内存效率使这个值更高,但它仍然崩溃.这对我来说没有意义,因为这些都没有运行甚至接近使用我的所有内存,更不用说交换空间了.默认情况下,堆大小应该是无限制的,缩小堆栈大小并没有什么区别,并且我的所有ulimits都是无限的或远远高于守护进程使用的.
在原始代码中,我将崩溃指向了html解析中的某个地方,但我没有对更高效的内存版本做同样的事情,因为运行20个小时需要很长时间.我不知道这是否有用甚至是有用的,因为它似乎没有破坏程序的任何特定部分,因为它在崩溃之前成功运行了几十次迭代.
出于想法,我甚至查看了ghc源代码中的这个错误,它似乎是对mmap的失败调用,这对我没有多大帮助,因为我认为这不是问题的根源.
(编辑:代码重写并移至帖子末尾)
我是Haskell的新手,所以我希望这是懒惰评估的一些怪癖或其他快速修复的东西.否则,我是新鲜的想法.
我在FreeBsd 9.1上使用GHC版本7.4.2
编辑:
用静态html替换下载摆脱了问题,所以我把它缩小到我如何使用http-conduit.我编辑了上面的代码以包含我的网络代码.hackage docs提到分享经理所以我已经这样做了.它还说,http你必须明确地关闭连接,但我认为我不需要这样做httpLbs.
这是我的代码.
import Control.Monad.IO.Class (liftIO)
import qualified Data.Text as T
import qualified Data.ByteString.Lazy as BL
import Text.Regex.PCRE
import Network.HTTP.Conduit
main :: IO ()
main = do
manager <- newManager def
daemonLoop manager
daemonLoop :: Manager -> IO ()
daemonLoop manager = do
rows <- scrapeWebpage manager
putStrLn $ …