Help for this page

Select Code to Download

Select or download this

open file.xml ;
$version := hash ../id /objects/obj/version ;
ls /objects/obj[ count(refs/id)
                 and count(refs/id[xsh:lookup('version', .) = ../../ve
+rsion])
                   = count(refs/id) ];

Select or download this

#!/usr/bin/perl
use warnings;
...
foreach my $node (@nodes) {
    say $node->toString(1);
}