SGML::ElementMap - Perl extension for SGML/XML oriented processing
use SGML::ElementMap; $engine = new SGML::ElementMap; $grove_builder = XML::Grove::Builder->new; $parser = XML::ESISParser->new ( Handler => $grove_builder , IsSGML=>1 );
$engine->cdata('',sub { my ($eng,$obj) = @_; print $obj->{'Data'}; }); $engine->element('HEAD', sub { my ($eng,$element) = @_; print "<h2>"; $eng->process_content; print "</h2>\n<hr>\n"; });
$document = eval { $parser->parse ( Source => { SystemId => $filename }) }; $engine->process_grove($document);
This module drives an SGML::ElementMap sweep over an XML::Grove object.
Robert Braddock, robert@concordant-thought.com
perl(1), SGML::ElementMap(3), XML::Grove(3), Data::Grove(3)