Re^3: search and replace

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.

Comment on Re^3: search and replace Download Code

Replies are listed 'Best First'.
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
That is different from what you asked for in the other thread: Set the flag! Which is it?	[reply]