Prty::DestinationTree - Verwalte Zielbaum eines Datei-Generators
Prty::Object
use Prty::DestinationTree; $dt = Prty::DestinationTree->(@dirs); ... # Dateien und Verzeichnisse erzeugen $dt->addFile($file,$content); $dt->addDir($dir); ... # Überzählige Dateien und Verzeichnisse entfernen $dt->cleanup;
Die Klasse verwaltet die Dateien und Unterverzeichnisse von einem oder mehreren Zielverzeichnissen. Sie ist für Dateigeneratoren gedacht, die den Inhalt ihrer Zielverzeichnisse komplett kontrollieren.
$tree = $class->new(@dirs,@opt);
Entferne alle Dateien und Verzeichnisse, die generiert wurden.
Diese Option ist für ein "make clean" nützlich. Im Unterschied zu einem $tree->cleanup() direkt nach Objektinstantiierung, werden hierbei Dateien, die mit -writeInitially=>1 erzeugt wurden, nur dann gelöscht, wenn sie nicht modifiziert wurden. Wurden sie modifiziert, bleiben sie erhalten.
Schließe alle Dateien, die Regex $regex erfüllen von der Betrachtung aus. D.h. diese werden vom Nutzer der Klasse nicht verwaltet (weder erzeugt noch entfernt).
Liste von Einzeldateien. Beispiel:
-files=>[glob '*_1.sql'],
Forciere das Schreiben aller Dateien, auch wenn ihr Inhalt nicht differiert.
Berücksichtige nur Dateien, die Regex $regex erfüllen, alle anderen werden von der Klasse nicht verwaltet (weder erzeugt noch entfernt).
Filehandle, von der Benutzereingaben gelesen werden.
Sprache für die Kommunikation mit dem Benutzer.
Setze Zeichenkette $str an den Anfang jeder Änderungsmeldung. Beispiel: -prefix=>'* '
-prefix=>'* '
Schreibe keine Meldungen nach STDERR.
Filehandle, auf die Ausgaben geschrieben werden.
Instantiiere ein Dateibaumobjekt über den Verzeichnissen @dirs und liefere eine Referenz auf dieses Objekt zurück. Die Verzeichnisse in @dirs müssen nicht existieren. Hat ein Verzeichnis die Form "DIR/*" wird nicht rekursiv in DIR abgestiegen, sondern nur die Dateien (nicht die Verzeichnisse) in DIR werden verwaltet.
$bool = $tree->addDir($dir);
Füge Verzeichnis $dir zum Dateibaum hinzu. Die Methode liefert 1, wenn das Verzeichnis effektiv erzeugt wurde (s.u.) oder 0, wenn dies nicht der Fall war.
Das Verzeichnis wird effektiv nur erzeugt, wenn es noch nicht existiert. In dem Fall schreibt die Methode eine entsprechende Meldung auf den Ausgabekanal und liefert als Returnwert 1.
Der Rückgabewert kann benutzt werden, um im Falle der Verzeichniserzeugung weitere Aktionen auszuführen, wie z.B. das Setzen von Verzeichnisrechten.
@paths | $pathA = $tree->paths;
Liefere die Liste der Pfade, die zu den Zielverzeichnissen gehören.
Die Reihenfolge ist undefiniert.
Die Liste enthält sowohl Verzeichnisse also auch Dateien.
Sortierung herstellen:
@paths = sort $tree->paths;
Nur Dateien erhalten:
@paths = grep {!-d} $tree->paths;
$bool = $tree->addFile($file,$data,@opt); $bool = $tree->addFile($file,\$data,@opt); $bool = $tree->addFile($file,@opt); $bool = $tree->addFile($file, -generate=>$bool, -onGenerate=>sub { ... return $data; }, @opt );
Encodiere/decodiere die Daten mit Encoding $encoding.
Forciere das Schreiben der Datei ohne den Dateiinhalt zu vergleichen. Die Option ist nützlich, wenn der Aufrufer bereits festgestellt hat, dass eine Differenz besteht.
Rufe die onGenerate-Subroutine auf, um den Dateiinhalt zu generieren.
Die Subroutine generiert und liefert den Inhalt der Datei. Sie wird aufgerufen, wenn Argument $data nicht definiert ist und die Datei nicht existiert oder Option -generate wahr ist.
Führe Subroutine aus, bevor Datei $file geschrieben wird.
Unterdrücke Ausgabe der Meldung.
Schreibe Datei nur, wenn sie nicht existiert.
Diese Option ist nützlich, wenn von einer Datei ein anfängliches Muster erzeugt werden soll, das anschließend manuell bearbeitet werden kann. Die manuell bearbeitete Datei soll danach natürlich nicht mehr vom Muster überschieben werden.
Füge Datei $file mit dem Inhalt $data zum Dateibaum hinzu. Die Methode liefert 0, wenn die Datei nicht geschrieben wurde, 1, wenn die Datei existiert hat und geschrieben wurde, 2, wenn die Datei neu erzeugt wurde.
Ist $data undef wird die Datei nicht geschrieben, bleibt aber weiter bestehen. Dies ist nützlich, wenn es teuer ist, den Inhalt der Datei zu generieren, und bekannt ist, dass sich am Inhalt nichts geändert hat.
undef
Die Datei wird effektiv geschrieben, wenn sie nicht existiert oder der Inhalt differiert. In dem Fall schreibt die Methode eine entsprechende Meldung nach STDERR und liefert als Returnwert 1.
Der Rückgabewert kann benutzt werden, um im Falle des Schreibens der Datei weitere Aktionen auszuführen, wie z.B. das Setzen von Dateirechten.
@arr | $arr = $tree->obsoletePaths;
Die Pfade werden lexikalisch absteigend sortiert, so dass der Inhalt eines Verzeichnisses typischerweise vor dem Verzeichnis kommt. Dies ist aber nicht garantiert, da Punkt "." und Bindestrich "-" vor dem Verzeichnistrenner "/" kommen.
$bool = $tree->removePath($path);
Lösche Datei oder Verzeichnis $path aus dem Zielbaum. Liefere 1, wenn die Löschung durchgeführt wurde, andernfalls 0.
Im Falle eines Verzeichnisses wird die Löschung nur durchgeführt, wenn das Verzeichnis leer ist. Dateien werden grundsätzlich gelöscht.
$n|@paths = $tree->cleanup; $n|@paths = $tree->cleanup($ask); $n|@paths = $tree->cleanup($ask,\$timer);
Anzahl oder Liste der gelöschten Pfade (Skalarkontext/Arraykontext)
Entferne alle Dateien und Verzeichnisse aus dem Zielbaum, die obsolet geworden sind, die seit Objekt-Instantiierung also nicht via $tree->addFile() oder $tree->addDir() angelegt wurden.
Ist der Parameter $ask angegeben und wahr, wird vor der Löschung eine Rückfrage auf STDERR gestellt, ob die Löschung wirklich erfolgen soll. Wird diese nicht mit 'y' beantwortet (auf STDIN), findet kein Löschen statt und die Methode liefert 0.
Ist ferner der Parameter $timer angegeben, wird die Antwortzeit des Benutzers auf dessen Wert aufaddiert.
$dt->close;
Schließe Zielbaumvergeleich ab. Nach Aufruf kann die Objektreferenz nicht mehr verwendet werden. Die Methode liefert keinen Wert zurück.
$text = $tree->getText($textDe);
Übersetzten Text (String)
Liefere die Übersetzung zum deutschen Text $textDe.
1.084
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.