Re^2: Extracting tagged data from a XML file

[davorg]

It looks like that's what you asked for. I'm not sure what the problem is.

[theroninwins]

The problem is that i need every IP only once. (Sorry if i didn't say that before). So i only need to get the IPAddress and not also the NEIGHBOURIPAddress, bacause then i have everything only once.

[davorg]

If you ever need to get unique values in Perl then you should think about using a hash.

use XML::XPath;

my $xp = XML::XPath->new(filename => '/path/to/file');

my %seen;
foreach ('IP-ADDRESS', 'IP-NEIGHBOUR') {
  foreach my $ip ($xp->findnodes("//$_")) {
    my $addr = $ip->findvalue('.');
    print "$addr\n" unless $seen{$addr}++;
  }
}

[theroninwins]

Which brings me back to where I was before how do it get XPATH?