Infoseite // Bildserien in Clips aufteilen (Script)

Frage von cantsin:


Da ich in letzter Zeit viel mit Videos experimentiere, die als Highspeed-Still-Fotos aufgenommen wurden, habe ich mir ein kleines Perl-Script geschrieben, dass die Einzeldateien in einer Sammlung verschiedener, ungetrennter Fotoserien so umbenennt, dass die einzelnen Serien bzw. Clips als solche erkennbar markiert sind. Resolve (und eventuell andere NLE-/Postproduktions-Software) erkennt die so umbenannten Dateien auch als Gruppen und importiert sie jeweils als Clips. Dabei erfolgt die Umbennung so, dass pro Clip-Gruppe einfach nur ein gemeinsamer Timestamp-Präfix plus Bindestrich gesetzt wird. Man kann sie also ggfs. unkompliziert mit Datei-Umbennungstools rückgängig machen.

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:
#!/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"); } Das Arbeitsprinzip ist ebenfalls extrem simpel: Das Skript vergleicht jeweils die EXIF-Aufnahmedaten von zwei aufeinander folgenden Dateien, und wenn ihr Aufnahmedatum mehr als eine Sekunde auseinanderliegt, identifiziert es den Beginn eines neuen Clips.

Hier mittlerweile mehrfach getestet und gut funktionierend mit DNG-Dateien. Müsste aber eigentlich mit allen Bilddateien funktionieren, die EXIF-Metadaten enthalten.