use PDF::API2;
use uft8; #文書メタ情報はフラグの立った UTF-8 文字列で指定
my $pdf = PDF::API2->open(‘mypdf.pdf’);
my $pageno = $pdf->pages;
print “$pageno pages.\n”;
for (1..$pageno){
my $splited = PDF::API2->new;
my $page = $splited->importpage($pdf,$_); # オリジナルの $_ ページ目を分割の1ページ目に
my %h = $splited->info(
‘Author’ => ‘書き手の名前’,
‘CreationDate’ => “D:20080911000000+01’00′”,
‘ModDate’ => “D:YYYYMMDDhhmmssOHH’mm'”,
‘Title’ => “これはタイトル”,
‘Subject’ => “これはサブタイトル:ページ$_”,
‘Keywords’ => “キーワード”
);
$splited->saveas(“mypdf_$_.pdf”);
$splited->end;
}
$pdf->end;