# # Look in Path.pm for path usage # use XML::Parser; use XML::Parser::Grove; use XML::Grove; use XML::Grove::Path; die "usage: test-path.pl XML-FILE [PATH ...]\n" if ($#ARGV == -1); my $doc = shift @ARGV; my $parser = XML::Parser->new(Style => 'grove'); $parser->parsefile ($doc); my $grove = $parser->{Grove}; my $path; foreach $path (@ARGV) { print "$path = " . $grove->at_path($path) . "\n"; } if ($doc =~ /REC-xml-19980210/) { $path = "/spec/header/title/[0]"; print "$path = " . $grove->at_path($path) . "\n"; $path = "/spec/header/pubdate/day/[0]"; print "$path = " . $grove->at_path($path) . "\n"; $path = "/spec/header/pubdate/month/[0]"; print "$path = " . $grove->at_path($path) . "\n"; $path = "/spec/header/pubdate/year/[0]"; print "$path = " . $grove->at_path($path) . "\n"; }