よこいまさる日記

■ 21:01

今日の昼もエロ中

■ 23:00

入社以来初めての自主残業、ってか気合い入れて「あと少しでできる」とか思いながらコード書いていたらこんな時間。(2230)　おかげで今期の目標はクリアできそうな予感。

■ Exif な情報を Perl で読む

　いつもの携帯電話から送信される画像ファイルで、QVGAサイズはそのままで、VGAサイズはリンク付けて原寸大でも表示できるようにしてみたいなぁとおもって、ちと調べてみた。　Image::Infoっていうのがあって、これを使うと JPEG file の Exif を取得できる。　ってことで、取得できる情報を Dump するようなコードを超特急で書いてみた。

#!/usr/bin/perl
use Image::Info;
sub usage () { print(STDERR "Usage: $0 <image file name>\n"); exit(1);}
if ($#ARGV < 0) { usage(); }
my $file = $ARGV[0];
if (! -r $file) { print(STDERR "Can't read \"$file\".\n"); usage(); }
my $img = Image::Info::image_info($file);
while (my ($k, $v) = each(%$img) ) { print "$k = $v\n"; }

　サイズとか撮影時刻とか撮影した機種の名前とか、いろいろとれるっぽい。　これを電子メール受け取って PIPEで流し込まれるヤツに仕組んでおくと、画像ファイルのもっと無駄冗長な情報を日記記事のなかに自動的に挿入されたりするんじゃないかと思ったりするんだけど。　俺的には画像サイズと撮影時刻しか活用できなさげだが、まぁおぃおぃってことで。

■ 欲しい本とか

　knaka さんに本貸してもらえそうな予感。　Debugging with GDB は#{mes}(#{link})で PDF 版とかがダウンロードできるみたいだから、こいつ縮小印刷して行き帰りの電車のなかで読もうっと。