JPEGファイルの生成機器取得

---

　Image::MetaData::JPEGモジュールを使うと取得できます。

use strict;
use Image::MetaData::JPEG;

my $file = 'image.jpg';
my $image = Image::MetaData::JPEG->new($file);
unless ($image) {
	die Image::MetaData::JPEG::Error();
}

my $segment = $image->retrieve_app1_Exif_segment(0);
my $data = $segment->get_Exif_data('IFD0_DATA', 'TEXTUAL');

my $make = $data->{Make}->[0];
$make =~ s/\x00//g;

my $model = $data->{Model}->[0];
$model =~ s/\x00//g;

print $make, "\n";
print $model, "\n";

---

関連項目

・JPEGファイルの情報取得
・JPEGファイルの撮影日時取得