GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
XML::Filter::DocSplitter(3) User Contributed Perl Documentation XML::Filter::DocSplitter(3)

XML::Filter::DocSplitter - Multipass processing of documents

version 0.46

    ## See XML::SAX::???? for an easier way to use this filter.

    use XML::SAX::Machines qw( Machine ) ;

    my $m = Machine(
        [ Intake => "XML::Filter::DocSplitter" => qw( Filter ) ],
        [ Filter => "My::Filter"               => qw( Merger ) ],
        [ Merger => "XML::Filter::Merger" => qw( Output ) ],
        [ Output => \*STDOUT ],
    );

    ## Let the distributor coordinate with the merger
    ## XML::SAX::Manifold does this for you.
    $m->Intake->set_aggregator( $m->Merger );

    $m->parse_file( "foo" );

XML::Filter::DocSplitter is a SAX filter that allows you to apply a filter to repeated sections of a document. It splits a document up at a predefined elements in to multiple documents and the filter is run on each document. The result can be left as a stream of separate documents or combined back in to a single document using a filter like XML::SAX::Merger.

By default, the input document is split in all children of the root element. By that reckoning, this document has three sub-documents in it:

    <doc>
        <subdoc> .... </subdoc>
        <subdoc> .... </subdoc>
        <subdoc> .... </subdoc>
    </doc>

When using without an aggregator, all events up to the first record are lost; with an aggregator, they are passed directly in to the aggregator as the "first" document. All elements between the records (the "\n " text nodes, in this case) are also passed directly to the merger (these will arrive between the end_document and start_document calls for each of the records), as are all events from the last record until the end of the input document. This means that the first document, as seen by the merger, is incomplete; it's missing it's end_element, which is passed later.

The approach of passing events from the input document right on through to the merger differs from the way XML::Filter::Distributor works.

This class is derived from XML::SAX::Base, see that for details.

XML::Filter::DocSplitter - Multipass processing of documents

new
    my $d = XML::Filter::DocSplitter->new(
        Handler    => $h,
        Aggregator => $a,    ## optional
    );
    
set_aggregator
    $h->set_aggregator( $a );
    

Sets the SAX filter that will stitch the resulting subdocuments back together. Set to "undef" to prevent such stitchery.

The aggregator should support the "start_manifold_document", "end_manifold_document", and "set_include_all_roots" methods as described in XML::Filter::Merger.

get_aggregator
    my $a = $h->get_aggregator;
    

Gets the SAX filter that will stitch the resulting subdocuments back together.

set_split_path
    $h->set_split_path( "/a/b/c" );
    

Sets the pattern to use when splitting the document. Patterns are a tiny little subset of the XPath language:

    Pattern     Description
    =======     ===========
    /*/*        splits the document on children of the root elt (default)
    //record    splits each <record> elt in to a document
    /*/record   splits each <record> child of the root elt
    /a/b/c/d    splits each of the <d> elts in to a document
    
get_split_path
    my $a = $h->get_split_path;
    

Can only feed a single aggregator at the moment :). I can fix this with a bit of effort.

    Barrie Slaymaker <barries@slaysys.com>

    Copyright 2000, Barrie Slaymaker, All Rights Reserved.

You may use this module under the terms of the Artistic, GPL, or the BSD licenses.

  • Barry Slaymaker
  • Chris Prather <chris@prather.org>

This software is copyright (c) 2013 by Barry Slaymaker.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

Hey! The above document had some coding errors, which are explained below:
Around line 297:
You forgot a '=back' before '=head1'
2013-08-19 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.