blob: bb7f0fc604239075c0e694326b800af4dddb6357 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#!/usr/bin/perl -w
use strict;
$| = 1;
unless (@ARGV >= 1) {
print STDERR qq(Usage:
$0 [filename] query
If no filename is given, supply XML on STDIN.
);
exit;
}
use XML::XPath;
my $xpath;
my $pipeline;
if ($ARGV[0] eq '-p') {
# pipeline mode
$pipeline = 1;
shift @ARGV;
}
if (@ARGV >= 2) {
$xpath = XML::XPath->new(filename => shift(@ARGV));
}
else {
$xpath = XML::XPath->new(ioref => \*STDIN);
}
my $nodes = $xpath->find(shift @ARGV);
unless ($nodes->isa('XML::XPath::NodeSet')) {
NOTNODES:
print STDERR "Query didn't return a nodeset. Value: ";
print $nodes->value, "\n";
exit;
}
if ($pipeline) {
$nodes = find_more($nodes);
goto NOTNODES unless $nodes->isa('XML::XPath::NodeSet');
}
if ($nodes->size) {
print STDERR "Found ", $nodes->size, " nodes:\n";
foreach my $node ($nodes->get_nodelist) {
print STDERR "-- NODE --\n";
print $node->toString;
}
}
else {
print STDERR "No nodes found";
}
print STDERR "\n";
exit;
sub find_more {
my ($nodes) = @_;
if (!@ARGV) {
return $nodes;
}
my $newnodes = XML::XPath::NodeSet->new;
my $find = shift @ARGV;
foreach my $node ($nodes->get_nodelist) {
my $new = $xpath->find($find, $node);
if ($new->isa('XML::XPath::NodeSet')) {
$newnodes->append($new);
}
else {
warn "Not a nodeset: ", $new->value, "\n";
}
}
return find_more($newnodes);
}
|