Re: Struggling with XML

[runrig]

Another way, w/XML::Rules:

use XML::Rules;

my @rules = (
  list => sub {
    my $dict = $_[1]{dict};
    for my $d (@$dict) {
      print "$d->{key}: $d->{value}\n";
    }
    return;
  },
  dict => [
    '/root' => sub {
      my $d = $_[1];
      print "$d->{key}: $d->{value}\n" if $d->{key} eq 'status';
      return;
    },
    'no content array',
  ],

  value => 'content',
);

my $xr = XML::Rules->new( rules => \@rules );
$xr->parse($xml);

Updated to also print status. A possibly simpler way(?):

my @rules = (
  "^dict" => sub {
    return $_[1]{key} =~ /^(?:status|subnet|gateway|netmask|data)$/;
  },
  dict => sub {
    my $d = $_[1];
    return if $d->{key} eq 'data';
    print "$d->{key}: $d->{value}\n";
  },
  value => 'content',
);