in reply to regex parsing brainteaser
It's not immune to matching before or after the tags, though. That gets uglier:my %errors = ( $data =~ m#(?:<\%def \.errors>|\G).*?(?:(^\w+):(.*?)$)(?=.*?</\%de +f>)#sgm );
my %errors = ( $data =~ m#(?:<\%def \.errors>|(?<=.)\G)(?:(?!</\%def>).)*?(?:(^\w ++):([^\n]*))(?=.*?</\%def>)#sgm );
Caution: Contents may have been coded under pressure.
|
---|
In Section
Seekers of Perl Wisdom