Question about XML::Simple

euz has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

Here s my problem (which I can't solve since a long long tiiiime), I can live with it but I was wondering if it could be solved :)

1/ I have a perl script reading a XML file :

<conf name="snoopdogg" serial="1" target="172.16.1.3">
 <services>
  <service name="cpu">
   <plugins>
    <plugin name="cpu" target="172.16.1.3" schedule="60">
     <probes>
      <probe name="load1">
       <warn value="4" operator="&gt;"/>
       <crit value="10" operator="&gt;"/>
     </probe>
(...)
[download]

2/ I read it this way :

my $configuration = $xml->XMLin(
             $conf,
             GroupTags => { services => 'service',
                            plugins => 'plugin',
                            probes => 'probe'
                          },
             ForceArray => [ qw(service plugin probe) ],
             KeyAttr => { 'service' => 'name',
                          'plugin' => 'name',
                          'probe' => 'name'
                        },
             KeepRoot => 0
);
[download]

The problem is the following : I want to access a probe's warn value, to do so I have to :

my $warn = $configuration->{snoopdogg}{services}{cpu}{plugins}{cpu}{pr
+obes}{load1}{warn}{value};
[download]

What I would like is to access the value this way :

my $warn = $configuration->{snoopdogg}{cpu}{cpu}{load1}{warn}{value};
[download]

Is there a way with XML::Simple to achieve something like

GroupTags => { services => 'service' => name }
[download]

Thank you very much ! :)

Comment on Question about XML::Simple Select or Download Code

Replies are listed 'Best First'.
Re: Question about XML::Simple by Jenda (Abbot) on Mar 11, 2012 at 15:15 UTC
I don't think XML::Simple gets you that far. XML::Rules would. use XML::Rules; my $parser = XML::Rules->new( stripspaces => 7, rules => { 'services,plugins,probes' => 'pass', 'conf,service,plugin,probe' => 'by name', _default => 'as is' } ); my $configuration = $parser->parse(\DATA); use Data::Dumper; print Dumper($configuration); __DATA__ <conf name="snoopdogg" serial="1" target="172.16.1.3"> <services> <service name="cpu"> <plugins> <plugin name="cpu" target="172.16.1.3" schedule="60"> <probes> <probe name="load1"> <warn value="4" operator=">"/> <crit value="10" operator=">"/> </probe> </probes> </plugin></plugins></service></services> </conf> [download] Jenda Enoch was right!* Enjoy the last years of Rome.	[reply] [d/l]
Re: Question about XML::Simple by kcott (Archbishop) on Mar 11, 2012 at 15:02 UTC
I'm not aware of that functionality being available in XML::Simple. This module recognises certain limitations and provides advice in WHERE TO FROM HERE?. XML::Twig and XML::LibXML may be of interest to you. XML::Twig - Alternative Modules provides a comparison of these two modules. -- Ken	[reply]
Re: Question about XML::Simple by euz (Initiate) on Mar 11, 2012 at 16:23 UTC
Thank you for your answers, XML::Rules seems promising. I will give it a try :) Have a nice day !	[reply]
Re: Question about XML::Simple by repellent (Priest) on Mar 11, 2012 at 21:37 UTC
`useXML::Twig;` `# we want anxpath` `like: //[@name="a"]//...//[@name="b"]/warn` my @names = qw(snoopdogg cpu cpu load1); my $twig = XML::Twig->new; $twig->parse(<<'XML'); <conf name="snoopdogg" serial="1" target="172.16.1.3"> <services> <service name="cpu"> <plugins> <plugin name="cpu" target="172.16.1.3" schedule="60"> <probes> <probe name="load1"> <warn value="4" operator=">"/> <crit value="10" operator=">"/> </probe> </probes> </plugin></plugins></service></services> </conf> XML my ($elt) = $twig->get_xpath( (join "//" => "", map qq{[\@name="$_"]}, @names) . "/warn" ); printf "value: %d\n", $elt->att('value'); __END__ value: 4 [download]	[reply] [d/l] [select]