regex gesucht - #54705 (Allgemeines zu Perl)

Froschpopo

2005-05-10 10:48

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ich lese eine konfigurationsdatei so ein:

Code: (dl )

while (<CONFIG>) 
{
    chomp;
    s/^\s+//;
    s/\s+$//;
    next unless length;
    my ($var, $value) = split(/\s*=\s*/, $_, 2);
    $cfg{$var} = $value;
}

Datei Datei sieht dann so aus:

Code: (dl )

1
2
3

var1=wert
var2=wert
var3=wert

Jetzt hab ich allerdings das problem, dass in $value kein = (Gleichheitszeichen) vorkommen darf. Das ist für mich leider ein problem.