X-Git-Url: http://git.shiar.nl/minime.git/blobdiff_plain/6c1d056361fc539dd9dd946106e0020a8150edcc..012b190991e70234b3dd58f3a98ed39a83b295a0:/termimg diff --git a/termimg b/termimg index 11d436d..baf6afd 100755 --- a/termimg +++ b/termimg @@ -4,7 +4,9 @@ my ($file, $size) = @ARGV; 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}, @@ -25,9 +27,10 @@ my @info = eval { $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})" : (),