X-Git-Url: http://git.shiar.nl/minime.git/blobdiff_plain/6c1d056361fc539dd9dd946106e0020a8150edcc..097f2f07325c34df989aa7e23b7a5fb455bcb930:/termimg diff --git a/termimg b/termimg index 11d436d..24f6a33 100755 --- a/termimg +++ b/termimg @@ -4,7 +4,11 @@ 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', + DateFormat => '%Y-%m-%d %H:%M:%S', + Exclude => 'System:*', + }); die "exiftool: $exif->{Error}\n" if $exif->{Error}; return ( $exif->{MIMEType}, @@ -16,18 +20,20 @@ my @info = eval { $exif->{SVGVersion} // $exif->{PDFVersion} // (), ), $exif->{ColorType} ? "$exif->{BitDepth}bpp $exif->{ColorType}" : (), - sprintf('exif x%d', scalar %{$exif}), + sprintf('exif (%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})" : (),