Hallo,
ich würde split vwerwenden, weil es schneller ist als regexp.
split hatte ich zuvor verwendet, aber schneller sah das nicht aus:
if (/.*=.*/) { # zuerst die Prüfung
my ($n,$v) = split /=/, $_; # dann die Filterung
$n =~ s/\s+//g; #
$v =~ s/^\s+//; # und dann noch die Verarbeitung
$v =~ s/\s+$//; #
$conf->{$n} = $v;
}
Ich dachte, ich könnte mir die Verarbeitung in der If-Bedingung ersparen, da ich ja sowieso schon mit regexp in der Bedingung selber arbeite.
Greez,
opi
--
Selfcode: ie:( fl:( br:^ va:) ls:] fo:) rl:( n4:? ss:| de:] ch:? mo:|
Selfcode: ie:( fl:( br:^ va:) ls:] fo:) rl:( n4:? ss:| de:] ch:? mo:|