1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl
use PDF::API2;
if(2 > scalar @ARGV) {
print <<"EOT";
Usage: $0 <outfile> <infile1> ... <infileN>
merges serveral pdf files into on ;-)
cheers,
fredo
EOT
}
my $outfile=shift @ARGV;
my $pdf=PDF::API2->new;
foreach my $in (@ARGV) {
print STDERR "loading file $in .";
my $inpdf=PDF::API2->open($in);
my $pages=scalar @{$inpdf->{pagestack}};
foreach my $page (1..$pages) {
print STDERR "$page.";
$pdf->importpage($inpdf,$page);
}
$inpdf->end();
print STDERR " done.\n";
}
$pdf->saveas($outfile);
|
