Opened by Dado at 2011-03-17 16:38
User since
2011-03-19
3472 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2011-03-19
3472 Artikel
BenutzerIn
2011-03-17T15:50:06 LinuxerIch persönlich verwende gerne Config::IniFiles.
Ein feines Modul!
Eine andere Möglichkeit: Die Variablen in einem eigenen kleinen Modul in einer Hash-Ref abzulegen und die Hash-Ref zu exportieren. Parallel dazu auch eine Objekterstellung für den Config-Hash.
--Rolf
Code: (dl
)
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;
###########################################################################