Re: How to improve regex for parsing equals delimited data

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";
    }
[download]

Comment on Re: How to improve regex for parsing equals delimited data Download Code

In Section Seekers of Perl Wisdom