Tryag File Manager
Home
-
Turbo Force
Current Path :
/
usr
/
share
/
doc
/
perl-XML-Grove-0.46alpha
/
examples
/
Upload File :
New :
File
Dir
//usr/share/doc/perl-XML-Grove-0.46alpha/examples/test-path.pl
# # 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"; }