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


There's more than one way to do things
	PerlMonks

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

by patcat88 (Deacon)

on Apr 20, 2011 at 00:43 UTC ( [id://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;
[download]

I do notice a double space left where the GENE tag used to be though.