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('SUBIFD_DATA', 'TEXTUAL');

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

print $date, "\n";

関連項目

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