Re^4: search and replace

__DATA__
<root>
<p>This is param1</p>
<p>This is second para</p>
<p>this is param3</p>
</root>
[download]

How to search for the occurance of first <p> tag in a file and replace it with <con><p> and search for the last closing </p> tag and replace it with </p></con>

Comment on Re^4: search and replace Select or Download Code

Replies are listed 'Best First'.
Re^5: search and replace by Anonymous Monk on Nov 05, 2009 at 16:09 UTC
`#!/usr/bin/perl use strict; use warnings; my $flag=0; while(<DATA>){ if($flag == 0){ if($_ =~ m/<p>/){ $_ =~ s/<p>/<con>/; $flag=1; } } print $_; } __DATA__ <root> <p>This is para1</p> <p>This is para2</p> </root>` [download] The output should be `<root <con> <p>This is para1</p> <p>This is para2</p> </con> </root>` [download] Only after the last p tag in the file I have to add </con>	[reply] [d/l] [select]
Re^6: search and replace by gmargo (Hermit) on Nov 05, 2009 at 16:54 UTC
That is different from what you asked for in the other thread: Set the flag! Which is it?	[reply]