Re: search and replace

Is this what you want?

#!/usr/bin/perl

use strict;

while (<DATA>) {
    my ($word) = /\>(.*)\</;
    print "<con><p>$word</p></con><code> <br/>\n";
}

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

Comment on Re: search and replace Download Code

Replies are listed 'Best First'.
Re^2: search and replace by Anonymous Monk on Nov 05, 2009 at 05:07 UTC
`<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	[reply] [d/l] [select]
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
Re^6: search and replace by gmargo (Hermit) on Nov 05, 2009 at 16:54 UTC