#acl SomeUser:read,write All: 
= Lightweight Language Lovers =
== 火事場のCPAN 〜 偉大なるLLの"おかん"Perl 〜 ==
 . 最近、1つのPDFファイルを切り分けて複数のファイルに分割する必要に迫られました。
 . Windows用のフリーソフトがいくつかあるようですが、自動化を考えるとLLで処理したいものです。

 . ただ、今回は急で時間がほとんどありません。こんな時、火事場の○○力になってくれるのがPerlのCPANです。[[BR]]
 PDF::API2というモジュールを使うと、本当に簡単に実現できてしまいました。

 . CPANについてはあちこちで説明されていると思いますので、ここではポイントだけ書いておきます。[[BR]]
 まず、CPANを使うための準備ですが、
 {{{
# perl -MCPAN -e shell
}}}
 として、基本的にはデフォルトですすめていくのですが、proxy の設定でちょっとつまずいてしまいました。あわてていたので、そのページに出ていたとおり、
 {{{
Your ftp_proxy? [http://proxy:8000/]
}}}
 と"[""]"(ブラケット)まで入れて答えてしまいました。（愚か・・・） 今、冷静に考えるとこれはデフォルト値が表示されている例だったのですね・・・
 普通にURLだけ入れれば良かったのです。アドレスだけ入れたり、IPアドレスで入れてみたりしてもつながらなかった訳です。

 . 小一時間ほど損をしてしまいましたが、設定さえ出来ればモジュールのインストールそのものは
 {{{
> install PDF::API2
}}}
 で一発です。他に必要となるモジュールも自動的にインストールしてくれました。

 . {{{PDF-API2-0.59.002.tar.gz}}}の中には、サンプルと思われるプログラムがいくつか入っています。この中の{{{pdf-merge.pl}}}が雛型として使えそうです。

 ~- CPANシェルから install コマンドでインストールした場合、どこに入ったのかがわかりませんでしたが、[[BR]]
 今探してみると、{{{.cpan/build/PDF-API2-0.59.002/contrib}}}にありました。-~

 . このプログラムは複数のPDFファイルをマージして1つのPDFファイルにする例です。今したいのは逆のことですが、プログラムを見ると、ページ毎に取り込んでいるようです。ということは、ここでページを指定すれば欲しいページだけに限定できそうです。


 {{{#!cplusplus
use PDF::API2;

if(2 > scalar @ARGV) {
    print <<"EOT";
#Usage: $0 <outfile> <infile1> ... <infileN>
Usage: $0 <outfile> <infile1,from,to> ... <infileN>


merges serveral pdf files into on ;-)

cheers, 
fredo
EOT
}

my $outfile=shift @ARGV;

my $pdf=PDF::API2->new;

foreach my $in (@ARGV) {
    (my $infile, my $page_from, my $page_to) = split /,/, $in;
# insert
#   print STDERR 'loading file $in .';
    print STDERR "loading file $in .";
#   my $inpdf=PDF::API2->open($in);
    my $inpdf=PDF::API2->open($infile);
    my $pages=scalar @{$inpdf->{pagestack}};
#   foreach my $page (1..$pages) {
    foreach my $page ($page_from..$page_to) {
        print STDERR "$page.";
        $pdf->importpage($inpdf,$page);
    }
    $inpdf->end();
    print STDERR " done.\n";
}

$pdf->saveas($outfile);

__END__
}}}

 ~- このサンプルプログラム、改行がDOS形式なのはいいのですが、なぜか最終行だけ改行がありません。
 {{{
perl -e '$/="\r\n";while (<>) {chomp;print "$_\n"}' pdf-merge.pl > pdf-merge2.pl
}}}
 で変換しました。 -~

 . サンプルプログラムをほんの数行を直すだけで実現出来てしまいました。やっぱりPerlはストリートファイトでは最強なのかも知れません。最初、この記事のサブタイトルを、Perlの成功が数々のLLの発展の基礎になったという意味で、「LLの母」と考えていたのですが、「おかん」のほうがぴったりなのに気づきました。

----
CategoryPerl