Perlを使って画像からexifを取得してみた。

Image::ExifTool

前に一度使ったことあったんですけど・・
表に出すことなく終わってしまったんで・・。

use Image::ExifTool;
my $exif = Image::ExifTool->new();
my $info = $exif->ImageInfo('hogehoge.jpg');
for my $key (sort keys %$info){
    print("$key : $info->{$key}\n");
}

ちょーお手軽ｗ

とりあえず、使えそうなヤツをいくつか・・。

※Version: 7.51でやってます。

#カメラ名
$info->{Model};

#感度
$info->{ISO};

#シャッタースピード
$info->{ShutterSpeed};

#レンズ
$info->{LensType};

#絞り
$info->{FNumber};

ま、とりあえず全部printしてみて・・使えそうなヤツを出す方向で・・。

Perlを使って画像からexifを取得してみた。

関連記事