Well, you could use args().
i.e.#!/usr/bin/perl -l use XML::Smart; my $x = XML::Smart->new(<<'XML'); <?xml version="1.0" encoding="iso-8859-1"?> <hosts> <server os="linux" type="redhat" version="8.0"> <address>192.168.0.1</address> <address>192.168.0.2</address> </server> <server os="linux" type="suse" version="7.0"> <address>192.168.1.10</address> <address>192.168.1.20</address> </server> <server address="192.168.2.100" os="linux" type="conectiva" versio +n="9.0"/> </hosts> XML $,=$"; print $_->key . ":" , $_->args for $x->cut_root->nodes; __END__ server: os type version server: os type version server: address os type version
In reply to Re: Trying to use XML::Smart: How do I get the attribute names of an XML element using XML::Smart?
by antirice
in thread Trying to use XML::Smart: How do I get the attribute names of an XML element using XML::Smart?
by jira0004
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |