David Haller wrote:
> Am Mon, 29 Mär 2010, Kai Wilke schrieb:
> [..]
>> sub read_conf_file {
>> my %data = ();
>>
>> unless (open(CONFFILE,$conf_file)) {
>> #`logger -t dns_update.pl 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);
>
> Was soll das denn? Also die '\$'?
>
> while (<CONFFILE>) {
> chomp;
> s/#.*//;
> next if /^\s*$/; ## auch Zeilen mit nur vergessenem
[...]
Och Leute, nun hört doch bitte 1. auf, hier selbst Konfigurations-
dateien zu parsen und nehmt eines der vielen Module für diesen Zweck.
Und 2. gibt es für Perl-Fragen doch de.comp.lang.perl.misc, warum macht
ihr das hier in dieser Ausführlichkeit?
Attachment:
signature.asc
Description: PGP signature