Select Code to Download

  1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
  2 <NAGIOS>
...
 37     <MAX></MAX>
 38   </DATASOURCE>
 ...

  1 #!/usr/bin/env perl
  2 
...
 10 my $file = $ARGV[0];
 11 my $doc = $xs1->XMLin($file, forcearray => 1);
 12

$VAR1 = {
          'NAGIOS_NOTIFICATIONRECIPIENTS' => {},
...
                            'WARN_RANGE_TYPE' => {}
                          },
...

 20 foreach my $datasource ($doc->{DATASOURCE}){
 21 
...
 28       print $datasource[$element];
 29   }
 30 }

$VAR1 = 'max';
Element = 0

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