Image-ExifTool
PerlでExif情報を参照するためのモジュールであるImage-ExifToolを触っています。
PHPだと--enable-exif を付けてPHPをコンパイルすることでExifを使えるようになるんだけど、Perlだと外部のツールを使うことになるわけです。
これはCPANで配布されています。
http://search.cpan.org/dist/Image-ExifTool/
普段PHPをメインで扱っているし(Perlも何度か触ったことがあるんだけど)、このImage-ExifToolも慣れるのに時間がかかったかも。Exifデータをprintするところまではうまく進んだんだけど、実際に取ってくるのに手こずった。
このあたりを参考にするといいかも。
「1日1tech Image-ExifTool：Perl で Exif 情報を取得」：http://miyana2m.blog2.fc2.com/blog-entry-326.html
「TechMemo WindowsMediaファイルのメタ情報を取ってくるCPANモジュール」(アドレスが長いので左のリンクをクリックしてください)
「CodeZine デジカメ写真と価格.com APIを使ってマッシュアップを作ろう 」：http://codezine.jp/a/article/aid/1468.aspx