こらない

PDFをページ毎に分割しなきゃいけなくなったので、PDF::Xtract というモジュールを使ってやってみた。
そのメモ。

use PDF::Xtract;

my $pdf = new PDF::Xtract( PDFDoc => 'sample.pdf' );

#総ページ数
my ($page_count) = $pdf->getPDFExtractVariables(PDFPageCountIn);

#1ページずつに分割して書き出し
for(my $i = 1; $i <= $page_count; $i ++){
    my @pages = ($i);
    $pdf->pdf->savePDFExtract( PDFPages => \@pages, PDFSaveAs => "$i.pdf" );
}

#特定のページを書き出し
my @pages = (10..30, 5, 7); #10〜30ページと、5ページと、7ページを指定
pdf->savePDFExtract( PDFPages => \@pages, PDFSaveAs => 'out.pdf' );