NAME
Quiq::PhotoStorage - Foto-Speicher
BASE CLASS
DESCRIPTION
Ein Objekt der Klasse repräsentiert einen Speicher für Fotos. Der Speicher besitzt folgende Eigenschaften:
Der Name der Foto-Datei bleibt als Bestandteil erhalten (nach Anwendung von: s/[^-_a-zA-Z0-9]/_/g)
Jedes Foto erhält eine fortlaufende, eindeutige Zahl als Präfix
Es wird der SHA1-Hash der Datei gebildet und gespeichert
Jede Datei wird nur einmal gespeichert, d.h. Dubletten werden zurückgewiesen
Andere Bildformate als JPEG werden nach JPEG konvertiert
METHODS
Klassenmethoden
new() - Konstruktor
Synopsis
$pst
=
$class
->new(
$dir
);
Description
Öffne den Fotospeicher in Verzeichnis $dir.
Das Verzeichnis hat den Aufbau:
$dir
/pic/<NNNNNNN>-<NAME>.jpg
# Verzeichnis mit den Bildern
cnt.txt
# Stand der Nummer NNNNNNN
sha1.hash
# die SHA1-Hashes der Bilddateien
Objektmethoden
add() - Füge Fotodatei zum Speicher hinzu
Synopsis
$path
=
$pst
->add(
$file
,
@opt
);
Arguments
Options
- -removeName = $bool (Default: 0)
-
Entferne den urprünglichen Dateinamen. Wenn nicht gesetzt, wird der ursprüngliche Dateiname (in Kleinschreibung und ohne "Sonderzeichen") mit "-" getrennt an den Zähler angefügt.
Returns
(String) Pfad der Datei im Speicher.
Description
Füge Fotodatei $file zum Speicher hinzu und liefere den Pfad der Datei im Speicher zurück.
addAllByTime() - Füge Fotodateien zum Fotospeicher hinzu
Synopsis
@paths
=
$pst
->addAllByTime(
@files
,
@opt
);
Arguments
Options
- -removeName = $bool (Default: 0)
-
Entferne den urprünglichen Dateinamen. Wenn nicht gesetzt, wird der ursprüngliche Dateiname (in Kleinschreibung und ohne "Sonderzeichen") mit "-" getrennt an den Zähler angefügt.
Returns
(Array of Strings) Liste der Pfade der Dateien im Speicher.
Description
Füge die Fotodateien @files in der Reihenfolge ihrer mtime zum Speicher hinzu und liefere die Pfade der Dateien im Speicher zurück.
VERSION
1.225
AUTHOR
Frank Seitz, http://fseitz.de/
COPYRIGHT
Copyright (C) 2025 Frank Seitz
LICENSE
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.