Leser: 25
2011-03-17T15:50:06 LinuxerIch persönlich verwende gerne Config::IniFiles.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
package myConfig;
###########################################################################
# Einfache Klasse zum zentralen Verwalten einer Konfiguration
# Rolf Rost, 13.2.2011
###########################################################################
# Hash-Referenz der Konfigurationsdaten
$cfg = {
mysql => {
host => 'localhost',
port => 3306,
base => 'Datenbankname',
user => '',
pass => '',
},
ftp => {
user => '',
pass => '',
host => '',
},
mail => {
from => 'otto@example.com',
host => 'example.com'
},
};
###########################################################################
use strict;
require Exporter;
use vars qw(@EXPORT_OK @ISA $cfg);
@ISA = qw(Exporter);
@EXPORT_OK = qw($cfg);
sub new{
my $class = shift;
return bless $cfg, $class;
}
###########################################################################
1;
###########################################################################
2011-03-21T19:59:10 topegWobei ich das entweder nur in einem "eval" Block lesen würde oder richtig Parsen. Man darf nicht vergessen perl interpretiert den Inhalt. Damit kann ein unbedarfter Nutzer einigen schaden anrichten.
So was würde ich nur ich nur für den "Hausgebrauch" machen, oder wenn eine sehr komplizierte Konfiguration sehr schnell geladen werden soll.
2011-03-21T21:27:43 pktmAh rosti, da bist du schon ganz nah dran an Config::Auto, das nehme ich gerne.