XML::Grove::Sub - run a filter sub over a grove
use XML::Grove::Sub; # Using filter method on XML::Grove::Document or XML::Grove::Element: @results = $grove_object->filter(\&sub [, ...]); # Using an XML::Grove::Sub instance: $filterer = XML::Grove::Sub->new(); @results = $grove_object->accept($filterer, \&sub [, ...]);
XML::Grove::Sub executes a sub, the filter, over all objects in a grove and returns a list of all the return values from the sub. The sub is called with the grove object as it's first parameter and passing the rest of the arguments to the call to `filter()' or `accept()'.
XML::Grove::Sub
filter()
accept()
The following filter will return a list of all `foo' or `bar' elements with an attribute `widget-no' beginning with `A' or `B'.
foo
bar
widget-no
A
B
@results = $grove_obj->filter(sub { my $obj = shift; if ($obj->isa('XML::Grove::Element') && (($obj->{Name} eq 'foo') || ($obj->{Name} eq 'bar')) && ($obj->{Attributes}{'widget-no'} =~ /^[AB]/)) { return ($obj); } return (); });
Ken MacLeod, ken@bitsko.slc.ut.us
perl(1), XML::Grove(3), Data::Grove::Visitor(3)
Extensible Markup Language (XML) <http://www.w3c.org/XML>
To install XML::Grove, copy and paste the appropriate command in to your terminal.
cpanm
cpanm XML::Grove
CPAN shell
perl -MCPAN -e shell install XML::Grove
For more information on module installation, please visit the detailed CPAN module installation guide.