Re: XML::XPath - node-to-xpath reverse lookup

[pajout]

Do not beat me, this is my first experience with that module :>)

#!/usr/bin/perl

use strict;
use XML::XPath;

my $xml = '
<status>
  <some_node/>
  <connector name="http-0">
    <threadInfo currentThreadsBusy="0"/>
    <requestInfo bytesReceived="0" bytesSent="0" errorCount="0" maxTim
+e="0" processingTime="0" requestCount="0"/>
    <workers></workers>
  </connector>
  <connector name="http-8080">
    <threadInfo currentThreadCount="158" currentThreadsBusy="10" maxTh
+reads="200"/>
    <requestInfo bytesReceived="297" bytesSent="19350704517" errorCoun
+t="192504" maxTime="249349" processingTime="2242513592" requestCount=
+"983650"/>
    <workers>
    </workers>
  </connector>
</status>
';
my $path = '/status/connector/threadInfo/@currentThreadsBusy';
my $xpath = XML::XPath->new( xml => $xml );
my $nodeset = $xpath->find($path);

foreach my $node ($nodeset->get_nodelist) {
    print "FOUND: ",
        $xpath->getNodeText($node),
        "\n";
    my $ret = '/@currentThreadsBusy';
    my $parent = $node->getParentNode();
    while ($parent and $parent->getParentNode()) {
    #$ret = '['.$xpath->find('position()',$parent)->value.']' . $ret;
    $ret = '['.($xpath->find('preceding-sibling::*[name()="'.$parent->
+getName().'"]',$parent)->size+1).']' . $ret;
    $ret = '/'.$parent->getName() . $ret;
    $parent = $parent->getParentNode();
    }
    print $ret."\n";
}

I think that commented row which uses position() would work, but it does not...