2012-08-29 180 views
0

是否有任何人有腳本合併使用PDF:API2的2個pdf文件?我只安裝了這個perl模塊,我的主機不允許我訪問c編譯器以進一步安裝perl模塊。使用PDF合併2 pdf文件:API2

+0

你應該看看[faq#howtoask]。幾乎所有以前的問題都不是很好。如果你需要幫助,請做些什麼。 – simbabque

+0

如果您對Perl模塊的編譯和安裝C代碼的訪問權限有限,另一種選擇是上傳[pdftk]的編譯版本(http://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/ )來調用(如果你的主機允許的話)。與使用PDF :: API2相比,pdftk是多功能的,並且冗長。 – Stennie

回答

3

這是一個單擊質量腳本,告訴您如何使用PDF::API2合併幾個PDF文件。

#!/usr/bin/perl 
use strict; 
use warnings; 

use PDF::API2; 

# files to merge 
my @input_files = (
    'document1.pdf', 
    'document2.pdf', 
    'document3.pdf', 
); 
my $output_file = 'new.pdf'; 

# the output file 
my $output_pdf = PDF::API2->new(-file => $output_file); 

foreach my $input_file (@input_files) { 
    my $input_pdf = PDF::API2->open($input_file); 
    my @numpages = (1..$input_pdf->pages()); 
    foreach my $numpage (@numpages) { 
     # add page number $numpage from $input_file to the end of 
     # the file $output_file 
     $output_pdf->importpage($input_pdf,$numpage,0);   
    } 
} 

$output_pdf->save();