pfleidi85
09-09-2005, 13:14
Ich habe hier ein Script das eine config Datei auslesen soll:
die Eintrage der Datei sehen folgendermassen aus:
user=username
password=passwort
....
Aus dieser conf sollen Die Zugangsdaten der Datenbank ausgelesen werden und spaeter noch globale Konfigurationen vorgenommen werden.
if(-r "$conf") {
open(CONFIG, "< $conf") || die "$conf could not be opened\n";
my @content = <CONFIG>;
#Hier soll der Inhalt z.B. nach user durchsucht werden und der username in die Variable $user gespeichert werden
close(CONFIG);
my $driver = "DBI:mysql:$db:$host";
}
else {
print("$conf is not readable");
}
Ich habe gerade erst mit Perl angefangen und weis deshalb nochnicht richtig wie ich an die Sache rangehen soll. Wenn ich nen Beispielcode haette wuerde das mir weiterhelfen ...
die Eintrage der Datei sehen folgendermassen aus:
user=username
password=passwort
....
Aus dieser conf sollen Die Zugangsdaten der Datenbank ausgelesen werden und spaeter noch globale Konfigurationen vorgenommen werden.
if(-r "$conf") {
open(CONFIG, "< $conf") || die "$conf could not be opened\n";
my @content = <CONFIG>;
#Hier soll der Inhalt z.B. nach user durchsucht werden und der username in die Variable $user gespeichert werden
close(CONFIG);
my $driver = "DBI:mysql:$db:$host";
}
else {
print("$conf is not readable");
}
Ich habe gerade erst mit Perl angefangen und weis deshalb nochnicht richtig wie ich an die Sache rangehen soll. Wenn ich nen Beispielcode haette wuerde das mir weiterhelfen ...