Image PDF:：API2图像\u png

我的pdf:：api2有问题，我需要编辑现有的pdf并放入一些图像。问题是，插入4个图像时，每个图像大约需要20秒。整个过程持续了一分半钟。我能做些什么来加速这个过程吗？这些图像是1920年的 × 1080并且需要保持那个尺寸，因为我需要高质量的pdf-s。。。不用多说，下面是代码：

#!/usr/bin/perl 
use PDF::API2;
print "start ".(localtime)."\n";
$pdf = PDF::API2->open("sample.pdf"); 
$page = $pdf->openpage(1); 
$page->mediabox(840,600) 
$gfx=$page->gfx; 
print "first image ".(localtime)."\n"; 
$first=$pdf->image_png("first.png"); 
print "inserting first image ".(localtime)."\n"; 
$gfx->image($first,134,106,510,281); 
print "saving ".(localtime)." \n"; 
$pdf->saveas('new_file.pdf'); 
print "done ".(localtime)." \n";

我得到的输出：

start Mon Jun 3 10:46:31 2013 
first image Mon Jun 3 10:46:31 2013 
inserting first image Mon Jun 3 10:46:53 2013 
saving Mon Jun 3 10:46:53 2013 
done Mon Jun 3 10:46:57 2013

因此，最耗时的过程是image_png，在本例中需要22秒。。。任何帮助都将不胜感激。谢谢

---

更新：如果我使用相同的图像转换成JPEG格式，它会在一秒钟内完美工作。问题是我需要PNG文件的透明度更新：如果我使用相同的图像转换成JPEG，它可以在一秒钟内完美地工作。问题是我需要PNG文件的透明度作为一个开始，你应该

使用严格的
和
使用警告
。我假设
use PDF:：API2
行与shebang不在同一行。要获得更复杂的时间安排，请查看。它可以帮助你找出它正在放缓的地方。我在问题中添加了你的评论。您也可以通过单击链接自己完成。谢谢，我修复了use PDF:：API2行。。。至于减速，你认为这个NYTProf可以帮助API2减速吗？我的意思是，减速是$first=$pdf->image_png（“first.png”）；如果我使用另一个功能进行图像处理，它会起作用。我想它会帮助你找到真正的问题所在。它不会解决它。但也许你能找出问题所在，自己写一个解决方案