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

#!/usr/bin/perl -w
use strict;
use Image::ExifTool qw(:Public);

# […]

# Exif-Daten auslesen
my $exifTool = new Image::ExifTool;
my $info     = $exifTool->ImageInfo($filename);

if ( ! defined $info->{'CreateDate'} ) {
  # […] Datum anderweitig besorgen. Z.B. aus dem Dateinamen.

  # Exif-Header bearbeiten und in neue Datei wegsichern
  $exifTool->SetNewValue( CreateDate       => $date );
  $exifTool->SetNewValue( ModifyDate       => $date );
  $exifTool->SetNewValue( DateTimeOriginal => $date );
  $exifTool->WriteInfo( $filename, $modified_image );
}

# […]