comment on

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";
}
[download]

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

In reply to Re: XML::XPath - node-to-xpath reverse lookup by pajout
in thread XML::XPath - node-to-xpath reverse lookup by georgeh

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


P is for Practical
	PerlMonks