Exiftool to the rescue

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/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 );
}

# […]