Help-Site Computer Manuals
Software
Hardware
Programming
Networking
  Algorithms & Data Structures   Programming Languages   Revision Control
  Protocols
  Cameras   Computers   Displays   Keyboards & Mice   Motherboards   Networking   Printers & Scanners   Storage
  Windows   Linux & Unix   Mac

XML::Filter::SAXT
Replicates SAX events to several SAX event handlers

XML::Filter::SAXT - Replicates SAX events to several SAX event handlers


NAME

XML::Filter::SAXT - Replicates SAX events to several SAX event handlers


SYNOPSIS


 $saxt = new XML::Filter::SAXT ( { Handler => $out1 },

                                 { DocumentHandler => $out2 },

                                 { DTDHandler => $out3,

                                   Handler => $out4 

                                 }

                               );

 $perlsax = new XML::Parser::PerlSAX ( Handler => $saxt );

 $perlsax->parse ( [OPTIONS] );


DESCRIPTION

SAXT is like the Unix 'tee' command in that it multiplexes the input stream to several output streams. In this case, the input stream is a PerlSAX event producer (like XML::Parser::PerlSAX) and the output streams are PerlSAX handlers or filters.

The SAXT constructor takes a list of hash references. Each hash specifies an output handler. The hash keys can be: DocumentHandler, DTDHandler, EntityResolver or Handler, where Handler is a combination of the previous three and acts as the default handler. E.g. if DocumentHandler is not specified, it will try to use Handler.

EXAMPLE

In this example we use the XML::Parser::PerlSAX manpage to parse an XML file and to invoke the PerlSAX callbacks of our SAXT object. The SAXT object then forwards the callbacks to the XML::Checker manpage, which will 'die' if it encounters an error, and to the XML::Hqandler::BuildDOM manpage, which will store the XML in an the XML::DOM::Document manpage.


 use XML::Parser::PerlSAX;

 use XML::Filter::SAXT;

 use XML::Handler::BuildDOM;

 use XML::Checker;

 my $checker = new XML::Checker;

 my $builder = new XML::Handler::BuildDOM (KeepCDATA => 1);

 my $tee = new XML::Filter::SAXT ( { Handler => $checker },

                                   { Handler => $builder } );

 my $parser = new XML::Parser::PerlSAX (Handler => $tee);

 eval

 {

    # This is how you set the error handler for XML::Checker

    local $XML::Checker::FAIL = \&my_fail;

    my $dom_document = $parser->parsefile ("file.xml");

    ... your code here ...

 };

 if ($@)

 {

    # Either XML::Parser::PerlSAX threw an exception (bad XML)

    # or XML::Checker found an error and my_fail died.

    ... your error handling code here ...

 }

 # XML::Checker error handler

 sub my_fail

 {

   my $code = shift;

   die XML::Checker::error_string ($code, @_)

        if $code < 200;   # warnings and info messages are >= 200

 }


CAVEATS

This is still alpha software. Package names and interfaces are subject to change.


AUTHOR

Send bug reports, hints, tips, suggestions to Enno Derksen at <enno@att.com>.

Programminig
Wy
Wy
yW
Wy
Programming
Wy
Wy
Wy
Wy