Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Remove text between two Start and End Tags (Regex)

by patcat88 (Deacon)
on Apr 20, 2011 at 00:43 UTC ( #900263=note: print w/ replies, xml ) Need Help??


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

You dont need to use regular expressions to solve your problem. An order of magnitude less CPU intensive to use index and substr. Make sure your XML tags are ALWAYS the same before choosing to use index. '<GENE>' and '<Gene>' and '< GENE>' are totally different to index.

$string = 'Furthermore , expression of <GENE> Vpu </GENE> in Jurkat T +cells rendered them more susceptible to <GENE> Fas </GENE> - induced +death '; $start = 0; while (($beg = index($string, '<GENE>', $start)) > -1) { $end = index($string, '</GENE>', $start)+7; substr($string, $beg, ($end-$beg), ''); $start = $end; } print $string;
I do notice a double space left where the GENE tag used to be though.


Comment on Re: Remove text between two Start and End Tags (Regex)
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://900263]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2014-12-25 13:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls