Lightweight Language Lovers

火事場のCPAN 〜 偉大なるLLの"おかん"Perl 〜

• 最近、1つのPDFファイルを切り分けて複数のファイルに分割する必要に迫られました。
• Windows用のフリーソフトがいくつかあるようですが、自動化を考えるとLLで処理したいものです。

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

• CPANについてはあちこちで説明されていると思いますので、ここではポイントだけ書いておきます。
  まず、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 コマンドでインストールした場合、どこに入ったのかがわかりませんでしたが、
  今探してみると、.cpan/build/PDF-API2-0.59.002/contribにありました。

• これは複数のPDFファイルをマージして1つのPDFファイルにするプログラムです。今、実現したい事は逆の事ですが、中のコードを見ると、1ページずつ取り込んでいました。ということは、ここでページを限定できれは欲しいページだけ取り込めそうです。

• 具体的なコードは /PdfMerge を見ていただくとして、サンプルプログラムをほんの数行を直すだけで実現出来てしまいました。しかも単に切り出すだけではなく、複数のファイルから必要な部分だけ寄せ集めることも出来ます。やっぱりPerlはストリートファイトではまだまだ最強なのかも知れません。最初、この記事のサブタイトルを、Perlの成功が数々のLLの発展の基礎になったという意味で、「LLの母」と考えていたのですが、生活力にあふれた「おかん」という表現がぴったりなのに気づきました。

• 完璧に整理しようとして途中で終わってしまっている父を尻目に、全然片付けられていない書類の山の中から目的の書類をすばやく出して言うのです。「はい、これ」

CategoryPerl