Perlで写真のexif情報取得

未分類

Perlで写真のexif情報取得

Image::ExifToolを使う http://search.cpan.org/~exiftool/Image-Ex […]

最終更新日:2010年3月19日

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');

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

セール・特価情報

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

未分類カテゴリーの記事を全部見る