Prty::TimeLapse::Directory - Bildsequenz-Verzeichnis
Prty::Hash
# Klasse laden use Prty::TimeLapse::Directory; # Instantiiere Verzeichnis-Objekt $tdr = Prty::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
Ein Objekt der Klasse repräsentiert ein Verzeichnis, das eine geordnete Liste von Bildern enthält. Die Bilder können einzeln über ihre Bildnummer oder als Bildfolge über die Angabe eines Nummern-Bereichs oder eines Bereichs-Bezeichners (definiert in der Datei range.def) abgefragt werden.
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);
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.
Wurzelverzeichnis.
Referenz auf Bildverzeichnis-Objekt
$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;
Liefere die Anzahl der im Zeitraffer-Verzeichnis enthaltenen Bilder.
Integer >= 0
$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);
Liefere die Liste der Bildnummern zu Bildnummern-Ausdruck $expr.
Liste von Bildnummern (Integer). Im Skalarkontext eine Referenz auf die Liste.
$str = $tdr->resolveFunctionExpression($name,$args);
Wende Funktion $func auf seine Argumente $args an und liefere die resultierende Zeichenkette (Bildnummern-Aufzählung) zurück.
Zeichenkette
$str = $tdr->resolveIdentifier($key);
Liefere den Wert des Bezeichners $key.
$str = $tdr->resolveRange($n,$m);
Überführe eine Bildnummern-Bereichsangabe ("N-M") in eine Nummern-Aufzählung ("N ... M").
Aufzählung von Bildnummern als Zeichenkette
@images|$imageA = $tdr->images; @images|$imageA = $tdr->images($expr);
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.
Bildfolgen-Ausdruck.
Liste von Bilddatei-Objekten. Im Skalarkontext liefere eine Referenz auf die Liste.
$img = $tdr->image($n);
Liefere das Bild-Objekt mit Bild-Nummer $n. Existiert keine Bild-Objekt mit Nummer $n, liefere undef.
Bild-Nummer
Bild-Objekt oder undef.
undef
$class->importImages($dir,$srcDir);
Füge die Bilddateien aus Verzeichnisstruktur $srcDir zum Zeitraffer-Verzeichnis $dir hinzu.
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
$class->reorganize($dir,@opt);
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.
Pfad zum Zeitraffer-Verzeichnis.
Zeige Änderungen, führe sie aber nicht aus.
1.101
Frank Seitz, http://fseitz.de/
Copyright (C) 2016 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Prty, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Prty
CPAN shell
perl -MCPAN -e shell install Prty
For more information on module installation, please visit the detailed CPAN module installation guide.