Hallo allerseits,
ich habe ein Problem mit Perl und kenne mich auch nicht in Perl aus.
Ich möchte das ein gefundenes Perl-Script die Variablen aus einer
Konfigurationsdatei einliest und nicht im Script definiert sind.
Nun habe ich nat. gegoogelt und auch das Perl-Kochbuch gefunden.
Ich habe aber irgendwie ein Verständnis-Problem, bei dem Thema.
Jedenfalls funktionieren die Beispiele bei mir nicht so richtig (vllt.
zu blöd).
-----------------------cut----------------------------
Perl Code:
### Globals - you can change these as needed
my $conf_file = "/etc/kwtools/kwdjbdns-update.conf";
### reads the configuration file & makes a hash of what's in there.
sub read_conf_file {
unless (open(CONFFILE,$conf_file)) {
#`logger -t dns_update error opening configuration file`;
print STDERR "Can't open configuration file\n";
exit 1;
}
while (<CONFFILE>) {
chomp;
s/#.*//;
s/^\$+//;
s/\s+$//;
next unless length;
my ($var, $value) = split(/\$*=\$*/, $_, 2);
print "$var";
print "$value";
}
close CONFFILE;
}
&read_conf_file;
-----------------------cut----------------------------
Nun kann ich zwar die Konfigurationsdatei einlesen und auch mittels
"print" ausgeben aber nicht auswerten, bzw. Variablen belegen.
Konfigurationsdatei:
# Kommentar
var = "wert"
Ich dachte an:
Wenn Variable var=domain_name ist, dann wird im Perl-Script die Variable
"domain_name" mit dem Wert von domain_name ($value), der
Konfigurationsdatei, belegt.
Kann mir da eine(r) Perle(r) helfen?
Ich danke schon mal im voraus.
mfg Kiste
PS: perl 5.10.1-11
--
#######################################################################
Netzworkk grml - Linux Live CD fuer Sysadmins
Kai Wilke http://grml.org
kiste@netzworkk.de
http://www.netzworkk.de
http://netzworkk.berlios.de
Attachment:
signature.asc
Description: Digital signature