是否有人使用PDF合并2个pdf文件的脚本:API2?我只安装了这个perl模块,而且我的主机不允许我访问c编译器以进一步安装perl模块。
答案 0 :(得分: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();