X-Git-Url: http://git.shiar.nl/minime.git/blobdiff_plain/6c1d056361fc539dd9dd946106e0020a8150edcc..44da9ac5236010871ca1402111869c9ac9838a7b:/termimg diff --git a/termimg b/termimg index 11d436d..ef57cd3 100755 --- a/termimg +++ b/termimg @@ -4,7 +4,10 @@ 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', + }); die "exiftool: $exif->{Error}\n" if $exif->{Error}; return ( $exif->{MIMEType}, @@ -19,15 +22,17 @@ my @info = eval { 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})" : (),