如何使用perl将页码添加到现有PDF中

Question

您能帮我解决这个问题吗？

我想使用perl将页码添加到PDF。我尝试过使用PDF :: Reuse模块，但是这样做效果不佳。请检查并做要紧......

Answer 1

我找到了一个不错的ARTICAL这里： http://www.perl.com/pub/2007/09/20/pdf-processing-with-perl.html

和这里是有关exapmle：

# 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文件。您可以选择所需的字体，并通过反复试验找出结果页面上的位置。