Re: extract a substring between two emements

in reply to extract a substring between two emements

>perl -wMstrict -le
"my $line = 'Hello hello START this is comment END '
          . 'START this is still comment END '
          . 'START this should still be comment END '
          . 'this is fixed'
          ;
 ;;
 my $START   = qr{ START \s* \K }xms;
 my $END     = qr{ (?= \s* END) }xms;
 my $not_end = qr{ (?! $END) .  }xms;
 ;;
 my ($extract) =
   $line =~ m{ $START $not_end* should $not_end* $END }xmsg;
 print qq{[[$line]]};
 print qq{'$extract'};
"
[[Hello hello START this is comment END START this is still comment
END START this should still be comment END this is fixed]]
'this should still be comment'
[download]

Comment on Re: extract a substring between two emements Download Code

In Section Seekers of Perl Wisdom