Clojure程序在运行后无法完成

Question

我的问题是执行我的clojure程序出乎意料的情况。

我使用的是Ubuntu 14.04 x64，Lein和Clojure（都是最新版本）。 我已经完成了我的小项目（网络爬虫，只是为了学习clojure）。 它确实有用，我确定（因为我已经在repl中运行它了。）

好的，我试图在终端使用lein运行它（查看屏幕截图）。 它工作正常，然后打印经过的时间。 但是，它等待着什么。这就是问题所在。程序无法停止，无法将控制权交还给ubuntu的终端。我第一次面对它，我以前的所有项目都是自己完成的。现在唯一的方法是＆＃34; Ctrl + C＆＃34;。 在代码中，我使用＆＃34;命令式＆＃34;命令（doseq，do），文件i / o（带开放式读写器），代理（发送，等待）和＆＃34; clj-http.client＆＃34;用于下载网页。它们是潜在的原因。

这是我的＆＃34;主要＆＃34;：

(defn crawl-bunch [depth]
  (do
    (send-off urls visit-urls)
    (await urls)
    (renew-urls)
    (await urls)
    (send-off urls mark-used-urls)
    (await urls)
    (dec depth)))

(defn crawl [depth]
  (loop [i depth]
    (if (= i 0)
      (save-found-urls "out_urls.txt")
      (recur (crawl-bunch i)))))

(defn -main [& args]
  (time 
   (do
    (file-to-urls "urls.txt")
    (crawl 1))))

这里有完整的源代码 - 近100个字符串（/src/crawler/core.clj）：https://github.com/ivanpetrov16130/crawler

请告诉我，如何解决？ 谢谢你的答案，请原谅我的语法，语法和逻辑错误。

Answer 1

您需要运行shutdown-agents才能使代理使用的线程池关闭。