Schlagwort: Exif

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, '_' .

Weiterlesen