使用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

我想将具有相同数字（pre“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执行操作的特殊方式调整这些调用，但这不应该太难。