Das ganze ist ein Perl-Script, das exiftool benötigt und unter einer Unix-kompatiblen Shell-Umgebung (Linux-Terminal, Mac OS-Terminal, Windows WSL oder Cygwin) laufen muss. Der Code ist ultrasimpel, aber ich teile ihn hier mal, weil er vielleicht für den einen oder anderen Foristen/Mitleser nützlich sein könnte:
Code: Alles auswählen
#!/usr/bin/perl
foreach my $file(@ARGV) {
chomp($file);
$timestamp_previous=$timestamp;
$timestamp=$(exiftool -T -d %Y%m%d%H%M%S -DateTimeOriginal $file);
chomp ($timestamp);
if (($timestamp-$timestamp_previous) gt 1) {
if ($clip_counter gt 0) {
print "\n$frame_counter frame";
if ($clip_counter gt 1) {print 's'}
print "\n\n";
}
$frame_counter=0;
$clip_counter++;
$offset_timestamp=$timestamp;
print "$clip_counter: $offset_timestamp\n";
}
$frame_counter++;
print '.';
system ("mv $file $offset_timestamp-$file");
}
Hier mittlerweile mehrfach getestet und gut funktionierend mit DNG-Dateien. Müsste aber eigentlich mit allen Bilddateien funktionieren, die EXIF-Metadaten enthalten.