require Image::ExifTool;
my $exif = Image::ExifTool->new->ImageInfo($file, {
CoordFormat => '%.5f',
+ DateFormat => '%Y-%m-%d %H:%M:%S',
});
die "exiftool: $exif->{Error}\n" if $exif->{Error};
return (
sprintf('exif x%d', scalar %{$exif}),
$exif->{Thumb} ? "thumb $exif->{ThumbnailLength}B" : (),
(map "@ $_",
+ $exif->{DateTimeOriginal} //
$exif->{DateCreated} //
$exif->{CircaDateCreated} //
$exif->{ModifyDate} //