1000ポイントもらえる得しかないキャンペーン

Amazonチャージで5000円以上チャージすると1000円分のポイントがもらえるぞ!

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);
#その2
$info = ImageInfo('image.jpg', 'thumbnailimage');
$thumbInfo = ImageInfo($$info{ThumbnailImage});
#タグリスト取得
@tags = $exifTool->GetTagList($info, 'Group0');

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

この記事を書いた人

五藤隆介(goryugo)

「仕事効率化」「ライフログ」「家族Hack」「デジタル情報共有」みたいなことを書いてます。
年に1〜2回子連れで長旅をするようになり、新しく旅行・お出かけブログも作りました。
2018年4月からはPodcastも配信中。

この記事が気に入ったら
いいね!しよう

最新の情報をお届けします