Re^2: search and replace

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

The output should be

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

Please tell me how to get the output this way

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

Replies are listed 'Best First'.
Re^3: search and replace by Your Mother (Archbishop) on Nov 05, 2009 at 05:16 UTC
`printf("<con>%s</con>", do { local $/; <DATA> } ); __DATA__ <p>This is param1</p> <p>This is second para</p> <p>this is param3</p>` [download] Facetiousness aside, the DATA iteration isn't working the way you think/want and though there are plenty of tricks to get it to do what you're after in this context it's not a good practice; you should parse/edit XML with an XML parser/writer. XML::Twig and XML::LibXML are (generally) the favorites around these parts.	[reply] [d/l]
Re^4: search and replace by Anonymous Monk on Nov 05, 2009 at 06:13 UTC
`__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>`	[reply] [d/l] [select]
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