hippos-lab::blog

「まるごとPerl！」という本をパラパラめくっていたらGD::Barcodeなるモジュールを発見。仕事でバーコードを出力したいというニーズがけっこうあって、VC++で自作したモジュールを使ったりエクセルExcelやらAccessでmsbcode9.ocxを使っていたのですがPerlでお手軽にバーコードが作成できるならこれも1つのテとしてストックしておくに限ると思い早々にトライ。

心配は、GDの名前が示すとおりlibgd関連のライブラリが揃っていないと動かないのではないかという懸念。一応、仕事でもOSX/RedHat環境があるので最終的にはこちらで作成してもいいのですが、やっぱり手元のWin/ActivePerl-5.10環境で動かしたいというのが本音。

ppmはさすがにCPANほどモジュールが揃っていないのでそこが気に掛かるところ。おそるおそる

ppm install GD::Barcode

としてみると一応成功。依存関係も解決してくれたことを期待しつつテストコード

use strict;
use GD::Barcode;

binmode (STDOUT);
print GD::Barcode->new('EAN13','1234567890123')->plot()->png();

（たったこれだけ！いままでの苦労はなんだったんだ！）を実行してみるも、案の定GD::Fontがないよみたいなメッセージ。

あきらめてGD系のパッケージをインストールしようとおもったのだけれど検索してみるとどうもそれらしいのがないみたい。OSXかRedHatでやるかと半ばあきらめつつ一応ググってみたらありました。ppdってサードパーティからも色々あるんですねぇ。

ppm install http://cpan.uwinnipeg.ca/PPMPackages/10xx/GD.ppd

前にも書いたけれどperlコミュニティの広がりはちょっと驚き。なにかしようと思うと大抵のものはもう用意されているような気がしますよ。これまでExcel出力とかVC++で面倒なことやっていたのもSpreadsheet::WriteExcelでチョロっとできちゃうし。他にも便利そうなライブラリがてんこ盛り。もう、プログラムなんてスクラッチから書く気がしませんよ。