Re: Search and replace in portion of xml file

[Jenda]

use XML::Rules;

my $parser = XML::Rules->new(
  style => 'filter',
  rules => {
    article => sub {
      my ($tag,$attr) = @_;
      $attr->{_content} =~ s/EM/E/g;
      return $tag => $attr;
    }
  }
);

$parser->filterfile( 'a.xml', 'b.xml');

[sandy1028]

Thanks for all the replies. I am trying to replace the text ctrl+O which is ^O in the file.

open FH,'a.txt';
@data=<FH>;
foreach $dat (@data){
$dat =~ s/\^O/ /g;
}

I am trying to replace the control characters with a space but no luck. Please can you suggest me how to proceed

[Jenda]

Perl doesn't understand what do you mean by that \^O. Try \x0F instead.