RE: using xml::libxml to find & replace in xml documents

[Eric Lease Morgan]

I wrote:
Has anybody here written one or more Perl scripts using XML::LibXML to
find & replace in XML documents?...
Thank you the all the replies. One person recommending a Perl module 
called XML::Twig. Another person recommended I use regular expressions. 
Two people recommended the use of XSLT. One of these provided sample 
code. The other wrote a full-blown program! ("Thanks, Andrew 
Houghton!")

In the end I re-read some of my Perl/XML books and decided to write a 
SAX filter using XML::SAX::ParserFactory. Such a filter has the 
following shape:

  use strict;
  use XML::SAX::ParserFactory;
  my $handler = MyHandler->new();
  my $parser = XML::SAX::ParserFactory->parser(Handler => $handler);
  $parser->parse_uri($ARGV[0]);
  exit;
  package MyHandler;
  sub new {
          my $type = shift;
          return bless {}, $type;
  }
  sub start_element {
          my ($self, $element) = @_;
          print "Starting element $element->{Name}\n";
  }
  sub end_element {
          my ($self, $element) = @_;
          print "Ending element $element->{Name}\n";
  }
  sub characters {
          my ($self, $characters) = @_;
          print "characters: $characters->{Data}\n";
  }
  1;
I have saved my script at the following location:
  http://infomotions.com/musings/getting-started/fix-ead.txt
The script will eventually be a part of a workshop I am giving called 
"Shining a LAMP on XML." the outline, to date, is here:

  http://infomotions.com/musings/getting-started/LAMP.txt
'More later.
--
Eric Lease Morgan