Re: regex and parsing config file directives..

[Mumia W.]

Mumia W. wrote:

[...]
if (m/^([\w-]+)(?: +(.*))?$/) {
    $directive{$1} = $2 || $1;
}

This is much more readable:

my ($key, $value) = split /\s+/, $_, 2;
$directive{$key} = $value || $key;




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>