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"; }
|
---|
In Section
Seekers of Perl Wisdom