Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Matching and replacing the minimum string from the tail of the regex

by hv (Parson)
on Aug 11, 2007 at 21:34 UTC ( #631977=note: print w/replies, xml ) Need Help??


in reply to Matching and replacing the minimum string from the tail of the regex

I'm not sure if there is a better way, but to me the obvious approach is to accept 'start' followed by '(not start)*' followed by 'end':

my $lines = do { local $/; <DATA> }; $lines =~ s{ ^ s \n # start line (?: ^ (?! s \n ) .* \n )* # body excluding new start line ^ e\ p $ # end line }{}xmg; print $lines;

Note that this does more work than the original failing substitution, so you can expect it to be slower.

I'm assuming that the start of a test is "an 's' followed by a newline", and on that assumption being a bit stricter than your original example about matching that.

Hope this helps,

Hugo

  • Comment on Re: Matching and replacing the minimum string from the tail of the regex
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://631977]
help
Chatterbox?
[LanX]: ... obviously too long
[Eily]: I yes, the natural onion in the flamming eye, I know what you mean
[LanX]: Eily your turn to provide a pic :)
[Eily]: occupe toi de tes oignons
LanX could do a zoom out in animated gif ...
[LanX]: heh
[marto]: get with the times, webm :P
[LanX]: didn't know this expression xD
[Eily]: :)
[Eily]: if you want to learn French expressions you can give a look to @bouletcorp on twitter

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (10)
As of 2017-12-14 16:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (398 votes). Check out past polls.

    Notices?