Exif-Daten ändern

Sollen Exif-Daten vorhandener Bild-Dateien geändert werden, so ist - wie so oft im adminstrativen Alltag - PERL ein hilfreiches Werkzeug.

Folgendes Skript schnappt sich alle “JPG”-Dateien im aktuellen Verzeichnis und setzt deren Aufnahmedatum auf den 01.09.2004 9:22:57 Uhr.

use strict;
use warnings;
use Image::ExifTool;

my (@files, $file, $image, $success);

opendir(DIR, '.');
@files = readdir(DIR);
closedir(DIR);

foreach $file (@files) {

 next if $file !~ /\.jpg$/i;

 print "processing file '$file'\n";

 my $image = new Image::ExifTool;

 $image->SetNewValue('DateTimeOriginal', '2004:09:01 09:22:57');
 $success = $image->WriteInfo($file, '_' . $file);

 die 'Error: \'' . $image->GetValue('Error') . '\'' if ! $success;
}

Die komplette Doku zu Image::ExifTool findet sich im CPAN. Wer mutig ist (oder ein Backup hat), kann den zweiten Parameter bei WriteInfo auch weglassen - die Quelldatei wird dann direkt überschrieben.