如何使用clj-pdf更快地生成pdf?

时间:2013-12-26 07:20:30

标签: clojure

我正在使用clj-pdf库生成一个包含40000页的页面,每页上有两个相同的图像。 考虑到我们曾经用python更快地完成它,它花了我大约1分30秒来生成pdf。 我能做些什么让它更快?

这是堆栈跟踪。

user=> (defn 
  #_=>  gen-pdf
  #_=>  []
  #_=>  (println (new java.util.Date))
  #_=>  (pdf [{}  (for [i (range 80000)] (do  [:paragraph [:image "sample_logos/batman.jpeg"] [:image "sample_logos/superman.jpeg"] ] ) )] "super.pdf")
  #_=>  (println (new java.util.Date)))
#'user/gen-pdf
user=> (gen-pdf)
#inst "2013-12-26T07:03:05.695-00:00"
#inst "2013-12-26T07:04:23.175-00:00"
nil
user=> 

1 个答案:

答案 0 :(得分:5)

更新:clj-pdf的作者非常友好地将references添加到库中。这是使用“1.11.9”版本的clj-pdf:

的更新代码
(defn gen-pdf []
  (time
   (pdf [{:references {:batman [:image "sample_logos/batman.jpeg"]
                       :superman [:image "sample_logos/superman.jpeg"]}}
         (for [i (range 80000)]
           [:paragraph
            [:reference :batman]
            [:reference :superman]])]
        "super.pdf")))

在我的机器上以 12秒结束。


我使用[clj-pdf“1.11.7”]运行了你的例子,花了大约 68秒并生成 5.4Gb 文件。

然后我创建了一个python示例:

from reportlab.pdfgen import canvas
from datetime import datetime

batman = "sample_logos/batman.jpeg"
superman = "sample_logos/superman.jpeg"
n = 80000

def hello(c):
    for i in range(0, n):
        c.drawImage(batman, 0,0)
        c.showPage()
    for i in range(0, n):
        c.drawImage(superman, 0,0)
        c.showPage()

t1 = datetime.now()
c = canvas.Canvas("super_py.pdf")
hello(c)
c.save()
t2 = datetime.now()

print (t2 - t1)

大致相当,使用python 2.7.5+和reportlab 2.7花了 53秒并生成 108Mb 文件。

Reportlab重用相同的图像,因此我更改了clj-pdf以允许在:image标记中传递iText图像 - 请参阅https://github.com/yogthos/clj-pdf/blob/master/src/clj_pdf/core.clj#L461

我添加了另一个条件来传递图像实例 as-is

(let [img (cond
            (instance? Image img-data)
            img-data
            (instance? java.awt.Image img-data)
            (Image/getInstance (.createImage ...

并将代码更改为

(defn gen-pdf []
  (let [batman (Image/getInstance "sample_logos/batman.jpeg")
        superman (Image/getInstance "sample_logos/superman.jpeg")]
    (time
     (pdf [{}
           (for [i (range 80000)]
             [:paragraph
              ;; [:image "sample_logos/batman.jpeg"]
              ;; [:image "sample_logos/superman.jpeg"]
              [:image batman]
              [:image superman]])]
          "super.pdf"))))

此优化允许我在 17秒 70 Mb

中生成pdf