NAME<\/a> XML::SimpleObject \u2212 Perl extension allowing a simple object representation of a parsed XML::Parser tree.<\/p>\n use XML::SimpleObject; This is a short and simple class allowing simple object access to a parsed XML::Parser tree, with methods for fetching children and attributes in as clean a manner as possible. My apologies for further polluting the XML::<\/small> space; this is a small and quick module, with easy and compact usage. See XML::SimpleObject::LibXML for the same interface for XML::LibXML.<\/p>\n $xmlobj = new XML::SimpleObject($parser\u2212>parse($XML))<\/p>\n $parser is an XML::Parser object created with Style “Tree”:<\/p>\n my $parser = new XML::Parser (ErrorContext => 2, Style => “Tree”);<\/p>\n After creating $xmlobj, this object can now be used to browse the XML<\/small> tree with the following methods.<\/p>\n $xmlobj\u2212>child(\u2019 NAME<\/small> \u2019)<\/p>\n This will return a new XML::SimpleObject object using the child element NAME.<\/small><\/p>\n $xmlobj\u2212>children(\u2019 NAME<\/small> \u2019)<\/p>\n Called with an argument NAME,<\/small> children()<\/b> will return an array of XML::SimpleObject objects of element NAME.<\/small> Thus, if $xmlobj represents the top-level XML<\/small> element, \u2019children\u2019 will return an array of all elements directly below the top-level that have the element name NAME.<\/small><\/p>\n $xmlobj\u2212>children<\/p>\n Called without arguments, \u2019children()<\/b>\u2019 will return an array of XML::SimpleObject s for all children elements of $xmlobj. These are not in the order they occur in $xmlobj\u2212>children_names<\/p>\n This will return an array of all the names of child elements for $xmlobj. You can use this to step through all the children of a given element (see EXAMPLES<\/small> ). Each name will occur only once, even if multiple children exist with that name.<\/p>\n $xmlobj\u2212>value<\/p>\n If the element represented by $xmlobj contains any PCDATA,<\/small> this method will return that text data.<\/p>\n $xmlobj\u2212>attribute(\u2019 NAME<\/small> \u2019)<\/p>\n This returns the text for an attribute NAME<\/small> of the XML<\/small> element represented by $xmlobj.<\/p>\n $xmlobj\u2212>attributes<\/p>\n This returns a hash of key\/value pairs for all elements in element $xmlobj.<\/p>\n Given this XML<\/small> document:<\/p>\n You can then interpret the tree as follows:<\/p>\n my $parser = new XML::Parser (ErrorContext => 2, Style => “Tree”); This will output:<\/p>\n Files: You can use \u2019children()<\/b>\u2019 without arguments to step through all children of a given element:<\/p>\n my $filesobj = $xmlobj\u2212>child(“files”)\u2212>child(“file”); For the tree above, this will output:<\/p>\n child: bytes: 20 Using \u2019children_names()<\/b>\u2019, you can step through all children for a given element:<\/p>\n my $filesobj = $xmlobj\u2212>child(“files”); This will print:<\/p>\n file has children: bytes, dest, name<\/p>\n By always using \u2019children()<\/b>\u2019, you can step through each child object, retrieving them with \u2019child()<\/b>\u2019.<\/p>\n Dan Brian
SYNOPSIS<\/a>
DESCRIPTION<\/a>
USAGE<\/a>
EXAMPLES<\/a>
AUTHOR<\/a>
SEE ALSO<\/a>
POD ERRORS<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
# Construct with the key\/value pairs as argument; this will create its
# own XML::Parser object.
my $xmlobj = new XML::SimpleObject(XML => $XML, ErrorContext => 2);
# … or construct with the parsed tree as the only argument, having to
# create the XML::Parser object separately.
my $parser = new XML::Parser (ErrorContext => 2, Style => “Tree”);
my $xmlobj = new XML::SimpleObject ($parser\u2212>parse($XML));
my $filesobj = $xmlobj\u2212>child(“files”)\u2212>child(“file”);
$filesobj\u2212>name;
$filesobj\u2212>value;
$filesobj\u2212>attribute(“type”);
%attributes = $filesobj\u2212>attributes;
@children = $filesobj\u2212>children;
@some_children = $filesobj\u2212>children(“some”);
@chilren_names = $filesobj\u2212>children_names;<\/p>\nDESCRIPTION <\/a> <\/h2>\n
USAGE <\/a> <\/h2>\n
the XML<\/small> document.<\/p>\nEXAMPLES <\/a> <\/h2>\n
<\/file>
<\/file>
<\/files><\/p>\n
my $xmlobj = new XML::SimpleObject ($parser\u2212>parse($XML));
print “Files: n”;
foreach my $element ($xmlobj\u2212>child(“files”)\u2212>children(“file”))
{
print ” filename: ” . $element\u2212>child(“name”)\u2212>value . “n”;
if ($element\u2212>attribute(“type”))
{
print ” type: ” . $element\u2212>attribute(“type”) . “n”;
}
print ” bytes: ” . $element\u2212>child(“bytes”)\u2212>value . “n”;
}<\/p>\n
filename: \/etc\/dosemu.conf
type: symlink
bytes: 20
filename: \/etc\/passwd
bytes: 948<\/p>\n
foreach my $child ($filesobj\u2212>children) {
print “child: “, $child\u2212>name, “: “, $child\u2212>value, “n”;
}<\/p>\n
child: dest: dosemu.conf\u2212drdos703.eval
child: name: \/etc\/dosemu.conf<\/p>\n
foreach my $childname ($filesobj\u2212>children_names) {
print “$childname has children: “;
print join (“, “, $filesobj\u2212>child($childname)\u2212>children_names), “n”;
}<\/p>\nAUTHOR <\/a> <\/h2>\n
SEE ALSO <\/a> <\/h2>\n