Prty::Config - Konfigurationsdatei in "Perl Object Notation"
Prty::Hash
use Prty::Config; my $cfg = Prty::Config->new('/etc/myapp/test.conf'); my $database = $cgf->get('database');
Ein Objekt der Klasse Prty::Config repräsentiert eine Menge von Attribut/Wert-Paaren, die in einer Perl-Datei spezifiziert sind.
Beispiel für den Inhalt einer Konfigurationsdatei:
host => 'localhost', datenbank => 'entw1', benutzer => ['sys','system']
Im Wert einer Konfigurationsvariable können Platzhalter eingebettet sein. Ein solcher Platzhalter wird mit Prozentzeichen (%) begrenzt und beim Lese-Zugriff durch den Wert der betreffenden Konfigurationsvariable ersetzt. Beispiel:
Konfigurationsdatei: VarDir => '/var/opt/myapp', SpoolDir => '%VarDir%/spool', Code: $val = $cfg->get('SpoolDir'); => '/var/opt/myapp/spool'
Wird durch den Pfad des aktuellen Verzeichnisses ersetzt. Anwendungsfall: Testkonfiguration für Zugriff auf aktuelles Verzeichnis über einen Dienst wie FTP:
test.conf --------- FtpUrl => 'user:passw@localhost:%CWD%'
[1] $cfg = $class->new($file); [2] $cfg = $class->new(\@dirs,$file); [3] $cfg = $class->new($str); [4] $cfg = $class->new(@keyVal);
[1] Instantiiere Konfigurationsobjekt aus Datei $file und liefere eine Referenz auf dieses Objekt zurück.
[2] Durchsuche die Verzeichnisse @dirs nach Datei $file. Die erste gefundene Datei wird geöffnet. Ein Leerstring '' in @dirs hat dieselbe Bedeutung wie '.' und steht für das aktuelle Verzeichnis.
[3] Als Parameter ist der Konfigurationscode als Zeichenkette der Form "$key => $val, ..." angegeben.
[4] Die Konfiguration ist inline angegeben.
$val = $cfg->get($key); @vals = $cfg->get(@keys);
Liefere den Wert des Konfigurationsattributs $key bzw. die Werte der Konfigurationsattribute @keys.
Existiert ein Konfigurationsattribut nicht, wirft die Methode eine Exception.
$val = $cfg->try($key); @vals = $cfg->try(@keys);
Liefere den Wert des Konfigurationsattributs $key bzw. die Werte der Konfigurationsattribute @keys. Existiert ein Konfigurationsattribut nicht, liefere undef.
1.118
Frank Seitz, http://fseitz.de/
Copyright (C) 2017 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.