Perlで写真のexif情報取得

Image::ExifToolを使う

http://search.cpan.org/~exiftool/Image-ExifTool/lib/Image/ExifTool.pod

exif情報を全部表示させてみる

#!/usr/bin/perl
use strict;
use warnings;
use Image::ExifTool;

my $file = "./image.jpg";
my $exifTool = new Image::ExifTool;
my $info = $exifTool->ImageInfo($file);

foreach (sort keys %$info) {
  print "$_ => $$info{$_}\n";
}

この辺りを使いそう

my $exifTool = new Image::ExifTool;

#width height取得
$info = $exifTool->GetInfo('ImageWidth', 'ImageHeight');

#$tag1,$tag2のデータを取得
$info = ImageInfo($filename, $tag1, $tag2);

#全タグデータ取得
$info = $exifTool->ImageInfo($filename);

#他にはこんな方法
%options = (PrintConv => 0);
@tagList = qw(filename imagesize xmp:creator exif:* -ifd1:*);
$info = ImageInfo(\$imageData, \@tagList, \%options);

#その２
$info = ImageInfo('image.jpg', 'thumbnailimage');
$thumbInfo = ImageInfo($$info{ThumbnailImage});

#タグリスト取得
@tags = $exifTool->GetTagList($info, 'Group0');

間違い等ありましたらご指摘いただければ幸いです。