my @info = eval {
require Image::ExifTool;
- my $exif = Image::ExifTool->new->ImageInfo($file);
+ my $exif = Image::ExifTool->new->ImageInfo($file, {
+ CoordFormat => '%.5f',
+ });
die "exiftool: $exif->{Error}\n" if $exif->{Error};
return (
$exif->{MIMEType},
$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})" : (),