my @info = eval {
require Image::ExifTool;
- my $exif = Image::ExifTool->new->ImageInfo($file);
+ 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 (
$exif->{MIMEType},
sprintf('exif x%d', scalar %{$exif}),
$exif->{Thumb} ? "thumb $exif->{ThumbnailLength}B" : (),
(map "@ $_",
+ $exif->{DateTimeOriginal} //
$exif->{DateCreated} //
$exif->{CircaDateCreated} //
$exif->{ModifyDate} //
$exif->{ZipModifyDate} //
(),
),
- $exif->{GPSPosition} ? $exif->{GPSPosition} =~ s/ deg/./gr :
- $exif->{Location} ? $exif->{Location} : (),
- $exif->{GPSAltitude} ? $exif->{GPSAltitude} : (),
+ join(', ',
+ $exif->{GPSPosition} // $exif->{Location} // (),
+ $exif->{GPSAltitude} // (),
+ ),
(map "hw $_", join(' ',
$exif->{Make} // (), $exif->{Model} // (),
$exif->{FOV} ? "(FOV $exif->{FOV})" : (),