Re: HOWTO XML::Simple

Resolution:

my $xml = XML::Simple->new(ForceArray=>['httpd'],
                           ContentKey=>'-content');
...
my $parsed = ...;
foreach {@{$parsed->{httpd}}
  if (ref($_) eq 'HASH') {
    #element has attibute(s)
    #do something with $_->{attr_name} and/or $_->{content}
  } else {
    #element has text node only
    #do something with $_, which is scalar text
  }
}
[download]

Comment on Re: HOWTO XML::Simple Download Code

Replies are listed 'Best First'.
Re^2: HOWTO XML::Simple by grantm (Parson) on Oct 27, 2005 at 00:02 UTC
I'm pleased you found a solution to your problem. You might be interested in this tutorial which compares using XML::Simple to XML::LibXML and demonstrates that the libxml code can be simpler and more powerful: Stepping up from XML::Simple to XML::LibXML	[reply]
Re^3: HOWTO XML::Simple by pajout (Curate) on Oct 27, 2005 at 12:09 UTC
Many thanks for reply. I like libxml & libxslt, but now I have no real experience with it - we GingerAlliance guys use XML::Sablotron :)) Now I deside to include libxml(2) into my own project, instead of sablotron, so I will study XML::LibXML intensively. My wish is to have very simple tool giving parsed short xml configuration files as perl structure, for read-only random access. So, firstly parse all syntacticall objects presented (elements, text nodes, notes, CDATAs, PIs,...) and check well-formedness, optionally check validity (RelaxNG rather than dtd) and inject it into perl without lose of informations. And perl subroutines must know, where are the relevant information pieces, traversing via very simple API, without any expectations about parameters of xml to perl structure transformation. XML::Simple is great, but too great to use it with my requirement, imho...	[reply]