Quiq::TimeLapse::Directory - Bildsequenz-Verzeichnis
Quiq::Hash
# Klasse laden use Quiq::TimeLapse::Directory; # Instantiiere Verzeichnis-Objekt $tdr = Quiq::TimeLapse::Directory->new('/my/image/dir'); # Anzahl der enthaltenen Bilder $n = $tdr->count; # Niedrigste Bildnummer $n = $tdr->minNumber; # Höchste Bildnummer $n = $tdr->maxNumber; # alle Bilder (des Verzeichnisses oder aus range.def, wenn definiert) @images = $tdr->images; # Bilder eines Nummernbereichs @images = $tdr->images('113-234'); @images = $tdr->images('290-'); @images = $tdr->images('422'); # Bilder zu einem Bezeichner aus range.def @images = $tdr->images('autofahrt'); # Alle Bilder des Verzeichnisses @images = $tdr->images('all'); # Alle Bilder aus range.def (leer, wenn range.def nicht existiert) @images = $tdr->images('used'); # Alle Bilder des Verzeichnisses, die nicht range.def vorkommen # (leer, wenn range.def nicht existiert) @images = $tdr->images('unused'); # Lookup eines Bildes $img = $tdr->image(422); # liefert undef, wenn nicht existent # Liefere das Objekt mit den Range- und Clip-Definitionen. Über # dieses Objekt können die Bildfolgen von Ranges und Clips gezielt # abgerufen werden. Details siehe Quiq::TimeLapse::RangeDef $trd = $tdr->rangeDef;
Ein Objekt der Klasse repräsentiert ein Verzeichnis, das eine geordnete Liste von Bildern enthält, ggf. verteilt über mehrere Unterverzeichnisse. Die Bilder können einzeln über ihre Bildnummer oder als Bildfolge über die Angabe eines Nummern-Bereichs oder eines Range- oder Clip-Bezeichners (definiert in der Datei range.def) abgefragt werden.
Mit der Liste von Bildern kann eine Bildfolge (Quiq::TimeLapse::Sequence) instantiiert werden, aus welcher u.a. ein Video generiert werden kann. Siehe die Doku dieser Klasse.
Pfad des Verzeichnisses.
Array der Bilddatei-Objekte des Verzeichnisses, nach Bildnummer sortiert.
Hash der Bilddatei-Objekte, mit Bildnummer als Schlüssel.
Referenz auf das Rangedatei-Objekt. Die Referenz wird beim ersten Zugriff zugewiesen. Existiert die Datei range.def nicht, wird eine Exception geworfen.
$tdr = $class->new($dir);
Wurzelverzeichnis.
Referenz auf Bildverzeichnis-Objekt
Instantiiere ein Bildverzeichnis-Objekt aus den Bildern in der Verzeichnisstruktur $dir und liefere eine Referenz auf dieses Objekt zurück. Die Verzeichnisstuktur wird per find() nach Bilddateien durchsucht und kann daher beliebig tief verschachtelt sein.
$path = $tdr->dir; $path = $tdr->dir($subPath);
Liefere den Pfad des Zeitraffer-Verzeichnisses. Ist Zeichenkette $subPath angegeben, wird diese mit '/' getrennt an den Pfad angefügt.
$n = $tdr->count;
Integer >= 0
Liefere die Anzahl der im Zeitraffer-Verzeichnis enthaltenen Bilder.
$n = $tdr->minNumber;
Liefere die niedrigste Bildnummer. Die niedrigste Bildnummer ist die Nummer des ersten Bildes. Ist die Liste leer, liefere 0.
$n = $tdr->maxNumber;
Liefere die höchste Bildnummer. Die höchste Bildnummer ist die Nummer des letzten Bildes. Ist die Liste leer, liefere 0.
@numbers|$numberA = $tdr->numbers($expr);
Liste von Bildnummern (Integer). Im Skalarkontext eine Referenz auf die Liste.
Liefere die Liste der Bildnummern zu Bildnummern-Ausdruck $expr.
$str = $tdr->resolveFunctionExpression($name,$args);
Zeichenkette
Wende Funktion $func auf seine Argumente $args an und liefere die resultierende Zeichenkette (Bildnummern-Aufzählung) zurück.
$str = $tdr->resolveIdentifier($key);
Liefere den Wert des Bezeichners $key.
$str = $tdr->resolveRange($n,$m);
Aufzählung von Bildnummern als Zeichenkette
Überführe eine Bildnummern-Bereichsangabe ("N-M") in eine Nummern-Aufzählung ("N ... M").
@images|$imageA = $tdr->images; @images|$imageA = $tdr->images($expr);
Bildfolgen-Ausdruck.
Liste von Bilddatei-Objekten. Im Skalarkontext liefere eine Referenz auf die Liste.
Liefere eine Folge von Bilddatei-Objekten gemäß Bildfolgen-Ausdruck $expr. Ist kein Bildfolgen-Ausdruck angegeben, liefere alle Bilddatei-Objekte. Ist eine Range-Datei definiert, bedeutet "alle", alle genutzten Bilder (= 'used'), ansonsten ausnahmslos alle Bilder des Zeitraffer-Verzeichnisses (= 'all').
Die Methode cached ihre Ergebnisse, so dass jede Bildfolge nur einmal bestimmt wird.
$img = $tdr->image($n);
Bild-Nummer
Bild-Objekt oder undef.
undef
Liefere das Bild-Objekt mit Bild-Nummer $n. Existiert keine Bild-Objekt mit Nummer $n, liefere undef.
$class->importImages($dir,$srcDir);
Zeitraffer-Verzeichnis, in das importiert wird.
Quell-Verzeichnisstruktur mit den Bildern, die importiert werden.
Rufe Methode reorganize()
Sortierung der Bilddateien vor dem Import. Entweder nach Name ('name') oder nach letzter Änderung und sekundär Name ('mtime'). Letzeres ist beim Import von GoPro-Bildern wichtig.
Importiere die Bilder in das Zeitraffer-Subverzeichnis $subPath. Existiert das Verzeichnis nicht, wird es angelegt.
Gibt Laufzeitinformation auf STDOUT aus.
nichts
Füge die Bilddateien aus Verzeichnisstruktur $srcDir zum Zeitraffer-Verzeichnis $dir hinzu.
$class->reorganize($dir,@opt);
Pfad zum Zeitraffer-Verzeichnis.
Zeige Änderungen, führe sie aber nicht aus.
Reorganisiere die Bilddateien des Zeitraffer-Verzeichnisses, indem sie nach ihrer Bildnummer auf Unterverzeichnisse mit je 500 Bilddateien verteilt werden.
Es wird die Unterverzeichnisstruktur angelegt
000001 (für Bilder mit Bildnummer 1 bis Bildnummer 500) 000501 (Bildnummer 501 bis 1000) 001001 (Bildnummer 1001 bis 1500) usw.
und die Bilder in ihr Verzeichnis bewegt. Befindet sich eine Bilddatei bereits im richtigen Verzeichnis, wird sie nicht bewegt.
Anschließend werden leere Verzeichnisse gelöscht.
Die Operation kann wiederholt angewendet werden, an einem bereits reorganisierten Verzeichnis wird keine Änderung vorgenommen.
1.164
Frank Seitz, http://fseitz.de/
Copyright (C) 2019 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Quiq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Quiq
CPAN shell
perl -MCPAN -e shell install Quiq
For more information on module installation, please visit the detailed CPAN module installation guide.