CPANモジュールのImagerにはpngファイルを扱う機能が実装されている。 しかし、ソースを読んでみるとpngファイルのテキストデータを保持する「tEXt」チャンクの情報を取得する方法が提供されていない。 正確に言うと pHYs チャンクのみ処理するようにしていて他のチャンク処理は実装されていない。 そこで今回、(自分用に。。。) tEXt チャンク(テキストデータ) をperl側から取得できるようにソースを書き換える。 まずはCPANからImagerソースを取得する。 $ dh-make-perl --cpan Imager $ ls Imager-0.75 libimager-perl_0.75.orig.tar.gz $ cd Imager-0.75pngファイルの処理を行っているのは png.c になる。 このソースの「get_png_tags」関数で Imager オブジェク