Re: [Perl] Config sourcen [was: Re: mutt + mysql-Adressbuch)

[Joerg Plate <plate@psyche.kn-bremen.de>]

> DB_Host, Database, table, username, password etc sollen in
> einer separaten Datei abgespeichert werden.
Ich würde das mit Config::IniFiles machen...

if (-e $configfile) {
  tie %ini, 'Config::IniFiles', (-file=>$configFile);
} else {
  die "kein $configfile: $!\n";
}

my $DB_Host = %ini{Database}{Host} || "default DB_Host";
my $Database = %ini{Database}{Name};
if (!defined $Database) { die "..." }

und in $configfile steht dann sowas wie

[Database}
Host = foo
Name = bar

-- 
"I'm working on it."  <http://Patterner.de>