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->{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} //