CAM::PDFを利用して複数のPDFを結合するスクリプトサンプル

merge_pdf.pl

#!/usr/bin/env perl

# CAM::PDF - search.cpan.org
# http://search.cpan.org/~cdolan/CAM-PDF-1.58/lib/CAM/PDF.pm

use strict;
use warnings;
use CAM::PDF;

# 結合するPDFのファイル名を指定してインスタンス生成
my $pdf1 = CAM::PDF->new('1.pdf');
my $pdf2 = CAM::PDF->new('2.pdf');

# $pdf1の後ろに$pdf2を結合
$pdf1->appendPDF($pdf2);

# 結合したPDFを出力するファイル名を指定
$pdf1->cleanoutput('out.pdf');

# 結合したPDFを出力
$pdf1->toPDF();