Perl で PDF ファイルを分割、テキスト抽出する

Perl で さくっと PDF ファイルを分割、テキスト抽出する方法が無いかなあ？というざっくり調査の結果を紹介します。 CPAN モジュールを探したのだが、結論から言うとどれも一長一短でした。 PDF::Extract http://search.cpan.org/~nsharrock/PDF-Extract-3.03/ その名の通り、指定ページをPDFから抽出するだけのシンプルモジュール。 PDF::Extract でページ分割 use PDF::Extract; my $pdf = new PDF::Extract( PDFDoc=>’mypdf.pdf’ ); my $pageno=5; #$pageno=$pdf->getVars(“PDFPageCount”); #これで取れるはず？だがうまくいかない my $i=1; #2ページずつPDFファイル分割 while($i <=$