1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
  2 <NAGIOS>
  3   <DATASOURCE>
  4     <TEMPLATE>check_bigip_pool_connection</TEMPLATE>
  5     <IS_MULTI>0</IS_MULTI>
  6     <DS>1</DS>
  7     <NAME>cur</NAME>
  8     <UNIT></UNIT>
  9     <ACT>2198</ACT>
 10     <WARN></WARN>
 11     <WARN_MIN></WARN_MIN>
 12     <WARN_MAX></WARN_MAX>
 13     <WARN_RANGE_TYPE></WARN_RANGE_TYPE>
 14     <CRIT></CRIT>
 15     <CRIT_MIN></CRIT_MIN>
 16     <CRIT_MAX></CRIT_MAX>
 17     <CRIT_RANGE_TYPE></CRIT_RANGE_TYPE>
 18     <MIN></MIN>
 19     <MAX></MAX>
 20   </DATASOURCE>
 21   <DATASOURCE>
 22     <TEMPLATE>check_bigip_pool_connection</TEMPLATE>
 23     <IS_MULTI>0</IS_MULTI>
 24     <DS>2</DS>
 25     <NAME>max</NAME>
 26     <UNIT></UNIT>
 27     <ACT>5400</ACT>
 28     <WARN></WARN>
 29     <WARN_MIN></WARN_MIN>
 30     <WARN_MAX></WARN_MAX>
 31     <WARN_RANGE_TYPE></WARN_RANGE_TYPE>
 32     <CRIT></CRIT>
 33     <CRIT_MIN></CRIT_MIN>
 34     <CRIT_MAX></CRIT_MAX>
 35     <CRIT_RANGE_TYPE></CRIT_RANGE_TYPE>
 36     <MIN></MIN>
 37     <MAX></MAX>
 38   </DATASOURCE>
 ... 

##</code><code>##

  1 #!/usr/bin/env perl
  2 
  3 
  4 use Data::Dumper;
  5 use XML::Simple;
...
  9 my $xs1 = XML::Simple->new();
 10 my $file = $ARGV[0];
 11 my $doc = $xs1->XMLin($file, forcearray => 1);
 12 

##</code><code>##

$VAR1 = {
          'NAGIOS_NOTIFICATIONRECIPIENTS' => {},
...
          'NAGIOS_HOSTACTIONURL' => '/nagios/pnp/index.php?host=ahostname.somedomain.com',
          'DATASOURCE' => [
                          {
                            'MIN' => {},
                            'TEMPLATE' => 'check_bigip_pool_connection',
                            'CRIT_MAX' => {},
                            'MAX' => {},
                            'UNIT' => {},
                            'WARN_MAX' => {},
                            'NAME' => 'cur',
                            'WARN_MIN' => {},
                            'IS_MULTI' => '0',
                            'DS' => '1',
                            'WARN' => {},
                            'CRIT_MIN' => {},
                            'ACT' => '2198',
                            'CRIT' => {},
                            'CRIT_RANGE_TYPE' => {},
                            'WARN_RANGE_TYPE' => {}
                          },
...

##</code><code>##

 20 foreach my $datasource ($doc->{DATASOURCE}){
 21 
 22   print Dumper($datasource->[1]->{NAME}->[0]);
 23 
 24   my $element = scalar(@datasource);
 25 
 26   print "Element = $element\n";
 27   for(my $element=0; $element < scalar(@datasource); $element++){
 28       print $datasource[$element];
 29   }
 30 }

##</code><code>##

$VAR1 = 'max';
Element = 0

##</code><code>##

$VAR1 = undef;
Element = 2
HASH(0x10e2ef0)