in reply to Find and replace
#!/usr/bin/perl use strict; while (<DATA>) { if (/^\<differentiation\>/ ... /^\<\/differentiation\>/ ) { s/\<.*\>/new/g if ! ( /\<differentiation\>/ || /\<\/differenti +ation\>/ ); print; } } __DATA__ <differentiation> <differentiated-content differentiation="Emphasis3" xlink:type="simple +">Dedication</differentiated-content> </differentiation> <differentiation> <para differentiation="Emphasis3" xlink:type="simple">Dedication</para +> </differentiation>
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Find and replace
by Selvakumar (Scribe) on Jun 04, 2009 at 05:23 UTC |