Re: regex parsing brainteaser

[Roy Johnson]

in reply to regex parsing brainteaser

my %errors =
  ( $data =~ m#(?:<\%def \.errors>|\G).*?(?:(^\w+):(.*?)$)(?=.*?</\%de
+f>)#sgm );

It's not immune to matching before or after the tags, though. That gets uglier:

my %errors =
  ( $data =~ m#(?:<\%def \.errors>|(?<=.)\G)(?:(?!</\%def>).)*?(?:(^\w
++):([^\n]*))(?=.*?</\%def>)#sgm );