EXIFのシャッター開放時間の取得

投稿日: 2009/08/25 作成者: kunito

RICOHのCX1で撮影したJPEG画像のシャッター開放時間を取得する。EXIFのExposureTimeの値を取得すればよい。PerlのImage::ExifToolを使用して、ファイル名,ExposureTimeの値というcsv形式のデータを出力するようにした。
覚え書きのためのソースは以下の通り。とりあえず動いたのでよしとしたが、もうちょっと効率化できそう。
改善ポイントのご指摘ありましたらコメントにお願いします。

#!/bin/perl
# ExtractExposureTime.pl
# Usage : /bin/ls *.jpg *.jpeg | ExtractExposureTime.pl
#
use Image::ExifTool qw(:Public);
my $exifTool = new Image::ExifTool;
$exifTool->Options(Unknown => 1);

while(<>){
my $filename=$_;
my $info = $exifTool->ImageInfo($_);
my $val=$info->{‘ExposureTime’};
chop($filename);
printf (“%s,%f\n”,$filename,eval($val) );
}

カテゴリー: Tips パーマリンク

コメントを残すコメントをキャンセル