Как вставить номер страницы в существующий PDF, используя perl

Question

Не могли бы вы помочь мне решить эту проблему?

Я хочу добавить номера страниц в PDF-файлы, используя perl. Я пробовал это с модулем PDF :: Reuse, но это не работает хорошо. Пожалуйста, проверьте и сделайте все необходимое ...

Answer 1

Я нашел хороший художественный материал здесь: http://www.perl.com/pub/2007/09/20/pdf-processing-with-perl.html

и вот соответствующий пример:

  # file: examples/sample-numbers.pl
  use PDF::Reuse;
  use strict;

  my $n = 1;

  prFile('examples/sample-numbers.pdf');

  while (1) {
     prText(550, 40, $n++);
     last unless prSinglePage('sample-letters.pdf');
  }

  prEnd();

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

Надеюсь, я помог.

Лиор

Answer 2

Модуль PDF :: API2 :: Simple также позволяет редактировать файлы PDF.Вы можете выбрать нужный шрифт и найти местоположение методом проб и ошибок на странице результатов.