Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Trying to use XML::Smart: How do I get the attribute names of an XML element using XML::Smart?

by antirice (Priest)
on Nov 02, 2005 at 22:41 UTC ( #505154=note: print w/ replies, xml ) Need Help??


in reply to Trying to use XML::Smart: How do I get the attribute names of an XML element using XML::Smart?

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


Comment on Re: Trying to use XML::Smart: How do I get the attribute names of an XML element using XML::Smart?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://505154]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2014-10-25 09:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (142 votes), past polls