XPath debugging tool.

xpath-eval.pl

#!/usr/bin/perl

use XML::XPath;

use strict;
use warnings;

my $file = shift;
my $path = shift;
unless (defined($path) && -e $file) {
    print STDERR "usage: $0 <infile> <path selector expression>\n\n";
    print STDERR "under UNIX, use single quotes around expression.\n\n";
    print STDERR "example: $0 test.xml '//phone[\@class=\"work\"]'\n\n";
    exit(-1);
}


my $xp = XML::XPath->new( filename => $file );
my $ns = $xp->find($path);
foreach my $node ($ns->get_nodelist) {
    print XML::XPath::XMLParser::as_string($node), "\n";
}