Re: How to improve regex for parsing equals delimited data

[jwkrahn]

in reply to How to improve regex for parsing equals delimited data

Another way to do it:

while ( <DATA> ) {
    $_ = reverse;
    my @fld;
    unshift @fld, scalar reverse $1 while s/(.+?)\s*=\s*\S+\s*//;
    print join( ',', @fld ), "\n";
    }