Пакетное объединение файлов изображений в PDF-файлы с использованием Perl в Windows

Question

У меня есть несколько файлов изображений в этом формате имен:

• 313024_Page_1_Image_0001.png
• 313024_Page_1_Image_0002.png
• 313025_Page_1_Image_0001.png * 1008.png * 1008.p9
• 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

. с расширением до 1034 * 25 *.

Я хотел бы иметь возможность запускать этот скрипт на Perl в Windows.

Заранее спасибо, Джейк

Answer 1

Imagemagick включает в себя программу convert, которая будет принимать PNG файлы и создавать из них PDF файлов, например:

$ convert source.png -compress zip source.pdf

Вы также можете append изображениеперед преобразованием в PDF:

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

Вы можете запустить это в скрипте Perl через system() или через API Imagemagick (пример ).

Возможно, вам потребуется настроить эти вызовы для особого способа работы Microsoft Windows, но это не должно быть слишком сложно.