in reply to Remove text between two Start and End Tags (Regex)

Much simpler: 
$sentence =~ s{<GENE>.*?</GENE>}{}gsi;

[download]

(Update: Added s modifier, suggested by wind++).

Perl 6 - second systems done right

Replies are listed 'Best First'.
Re^2: Remove text between two Start and End Tags (Regex)
by danj35 (Sexton) on Apr 19, 2011 at 15:25 UTC
    Works great thanks. Haven't seen the use of those brackets for this type of problem before. I guesss everything in the first set is the regex to find and the second set are the text to replace it with. GI being greedy and non-case sensitive. Learnt something new there... ;) Cheers
[reply]
      Yeah, you don't have to use "/". You can use practically anything. When dealing with HTML and the like, it's more convenient to use something other than "/".
[reply]

      Not greedy (although it is), global (meaning find all of them).

      Update: Show me to read quickly.

      --MidLifeXis

[reply]
        One more question related to this. Is there a way to try and find a variable outside of a start and end tag and then replace this with something new? So the start sentence would look like this,

        "The increase in sensitivity of HIV - infected cells to <GENE> Fas </GENE> killing mapped to <GENE> vpu </GENE> , while nef , <GENE> vif </GENE> , <GENE> vpr </GENE> , and second exon of <GENE> tat</GENE> did not appear to contribute"

        And end up looking like this:

        "The increase in sensitivity of HIV - infected cells to <GENE> Fas </GENE> killing mapped to <GENE> vpu </GENE> , while <PGENE> nef </PGENE> , <GENE> vif </GENE> , <GENE> vpr </GENE> , and second exon of <GENE> tat</GENE> did not appear to contribute"

        Notice the addition of a PGENE tag following the match of nef (outside of the start and end gene tags) to a variable.

        I appreciate this might be slightly confusing, but at the moment I'm racking my brain trying to figure out a way to join it all back together correctly if I do this using lots of splits.

        Thanks

[reply]

In Section Seekers of Perl Wisdom