Hallo Joerg,
Danke dir erstmal.
* Joerg Plate schrieb [20-09-02 16:21]:
>
> if (-e $configfile) {
> tie %ini, 'Config::IniFiles', (-file=>$configFile);
> } else {
> die "kein $configfile: $!\n";
> }
>
> my $DB_Host = %ini{Database}{Host} || "default DB_Host";
Ich hab das mal so eingetragen und übernommen. Davor hab ich noch
ein
use Config::IniFiles;
Aber ich bekomme bei Ausführung einen systax Fehler in der letzten
o.a. Zeile:
$ mutt_alias.pl
syntax error at /home/udo/bin/mutt_alias.pl line 47, near "%ini{Database"
Execution of /home/udo/bin/mutt_alias.pl aborted due to compilation errors.
Im File selbst sieht es jetzt so aus:
use Config::IniFiles;
use strict;
use DBI();
my $configfile = "/etc/mutt/mutt_alias.rc";
my %ini = "";
if (-e $configfile) {
tie %ini, 'Config::IniFiles', (-file=>$configfile);
} else {
die "Kein $configfile: $!\n";
}
my $host = %ini{Database}{host} || "default DB_Host"; # <- Zeile 47
my $database = %ini{Database}{database};
my $user = %ini{Database}{user};
my $password = %ini{Database}{password};
my $table = %ini{Database}{table};
my $col_alias = %ini{Database}{col_alias};
my $col_surname = %ini{Database}{col_surname};
my $col_firstname = %ini{Database}{col_firstname};
my $col_email = %ini{Database}{col_email};
Weisst du, wo da der Fehler liegt?
Gruss Udo
--
Alkohol soll ja gleichgültig machen.....
Na und?
Attachment:
pgpR1TpCTl2Ju.pgp
Description: PGP signature