Hi,

I want to know how can I search and replace text between tags using perl

e.g I have log files as fallows:

<valCode>ABCDEF009E76</valCode>
LOTS_OF_OTHER_LINES
<pCode>XYZYFE1009E76</pCode>

I want to remove the text between tags or replace the text with word 'Removed' as fallows

<valCode></valCode>
LOTS_OF_OTHER_LINES
<pCode>Removed</pCode

Yes, you can do that.

If you want help in doing so, you should post what you've done and explain why you're asking: Since perl would not be my first choice of language for this problem - sed or awk seem (to me) to be better candidates - the restriction to a perl solution makes me wonder if this is a homework problem...

Use xmlerl module.

I tried the following code is not same always aslo the tag is not considitent in the log files. in log logfiles the developer has used "pcode" in some they have used "Code"

I want to find the tag in the line <pcode> then the end tag </pcode> and then removed or replace the text between the tags.

#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $startdir = '/path/to/start/dir';
my $find = 'this';
my $replace = 'that';
my $doctype = 'txt';

print qq~Finding "$find" and replacing it with "$replace"\n~;

find(
sub{
return unless (/\.$doctype$/i);
local @ARGV = $_;
local $^I = '.bac';
while( <> ){
if( s/$find/$replace/ig ) {
print;
}
else {
print;
}
}
}, $startdir);

print "Finished";