Question about XML::Simple

[euz]

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>
(...)

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
);

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};

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

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

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

GroupTags => { services => 'service' => name }

Thank you very much ! :)

[Jenda]

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="&gt;"/>
       <crit value="10" operator="&gt;"/>
     </probe>
     </probes>
     </plugin></plugins></service></services>
</conf>

[kcott]

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.

[euz]

Thank you for your answers, XML::Rules seems promising.

I will give it a try :)

Have a nice day !

[repellent]

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="&gt;"/>
       <crit value="10" operator="&gt;"/>
     </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