Re: Search and replace in portion of xml file

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');
[download]

Jenda
Enoch was right!
Enjoy the last years of Rome.

Comment on Re: Search and replace in portion of xml file Download Code

Replies are listed 'Best First'.
Re^2: Search and replace in portion of xml file by sandy1028 (Sexton) on Jun 02, 2009 at 09:27 UTC
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; }` [download] I am trying to replace the control characters with a space but no luck. Please can you suggest me how to proceed	[reply] [d/l]
Re^3: Search and replace in portion of xml file by Jenda (Abbot) on Jun 02, 2009 at 10:58 UTC
Perl doesn't understand what do you mean by that \^O. Try \x0F instead. Jenda Enoch was right! Enjoy the last years of Rome.	[reply]