Re: Tricky regex problem (updated)

by AnomalousMonk (Bishop)

on Jul 22, 2020 at 15:34 UTC ( #11119660=note: print w/replies, xml )

Need Help??

If ~~that~~ (update: oops... I meant to reply to that node) works for you, try this as a simplification (untested):

$input_text =~ s{
    ^ ([#]{2,5}) \s+ [^\n]+ \s+ (?= ^ \1 [^#])
    }
    {}xmsg;
[download]

Beyond that, I have to say I don't understand your requirements. Can you express them more clearly?

Give a man a fish: <%-{-{-{-<

Comment on Re: Tricky regex problem (updated) Select or Download Code

Replies are listed 'Best First'.
Re^2: Tricky regex problem (updated) by nysus (Vicar) on Jul 22, 2020 at 15:47 UTC
All headers that are followed by only whitespace, with the whitespace getting followed by a header with the same or fewer pounds signs as the initial header, should get stripped. $PM = "Perl Monk's"; $MCF = "Most Clueless ~~Friar~~ ~~Abbot~~ ~~Bishop~~ ~~Pontiff~~ ~~Deacon~~ ~~Curate~~ ~~Priest~~ Vicar"; $nysus = $PM . ' ' . $MCF; Click here if you love Perl Monks	[reply]

Node Status^?

node history
Node Type: note [id://11119660]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others making s'mores by the fire in the courtyard of the Monastery: (11)

As of 2021-03-02 21:26 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?