在 Windows 中使用 perl 将图像文件批量合并为 pdf 文件

Question

我有一堆这种命名格式的图片文件：

• 313024_Page_1_Image_0001.png
• 313024_Page_1_Image_0002.png
• 313025_Page_1_Image_0001.png
• 313025_Page_1_Image_0002.png
• 313025_Page_2_Image_0001.png

并且我想将具有相同数字（“Page_”之前）的文件转换为具有该名称的单个 pdf。比如使用上面五个文件：

• 313024_Page_1_Image_0001.png
• 313024_Page_1_Image_0002.png

将合并到 313024.pdf

和

• 313025_Page_1_Image_0001.png
• 313025_Page_1_Image_0002.png
• 313025_Page_2_Image_0001.png

将合并到 313025.pdf

我希望能够在 Windows 中的 Perl 中运行此脚本。

提前致谢， 杰克

Answer 1

Imagemagick 包含一个convert 程序，它将获取PNG 文件并从中生成PDF 文件，例如：

$ convert source.png -compress zip source.pdf

您也可以将append图像文件转换成更大的图像文件，然后再转换为PDF：

$ convert {listOfImageFilenames} -append -compress zip verticallyStitchedFilename.pdf

您可以通过 system() 或 Imagemagick API (example) 在 Perl 脚本中运行它。

您可能需要针对 Microsoft Windows 执行操作的特殊方式调整这些调用，但这应该不会太难。