Exiftool to the rescue

September 23, 2017 - Aiko Barz   Perl

Android setzt nur bei HDR-Bildern das DateTimeOriginal in den EXIF-Header. Sonst nicht. Danke Google. Siehe Bugreport.

Exiftool to the rescue

 1 #!/usr/bin/perl -w
 2 use strict;
 3 use Image::ExifTool qw(:Public);
 4 
 5 # […]
 6 
 7 # Exif-Daten auslesen
 8 my $exifTool = new Image::ExifTool;
 9 my $info     = $exifTool->ImageInfo($filename);
10 
11 if ( ! defined $info->{'CreateDate'} ) {
12   # […] Datum anderweitig besorgen. Z.B. aus dem Dateinamen.
13 
14   # Exif-Header bearbeiten und in neue Datei wegsichern
15   $exifTool->SetNewValue( CreateDate       => $date );
16   $exifTool->SetNewValue( ModifyDate       => $date );
17   $exifTool->SetNewValue( DateTimeOriginal => $date );
18   $exifTool->WriteInfo( $filename, $modified_image );
19 }
20 
21 # […]