home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / doc / libxml-grove-perl / examples / test-path.pl < prev    next >
Encoding:
Text File  |  1999-10-23  |  837 b   |  33 lines
  1. #
  2. #  Look in Path.pm for path usage
  3. #
  4.  
  5. use XML::Parser;
  6. use XML::Parser::Grove;
  7. use XML::Grove;
  8. use XML::Grove::Path;
  9.  
  10. die "usage: test-path.pl XML-FILE [PATH ...]\n"
  11.     if ($#ARGV == -1);
  12. my $doc = shift @ARGV;
  13.  
  14. my $parser = XML::Parser->new(Style => 'grove');
  15. $parser->parsefile ($doc);
  16. my $grove = $parser->{Grove};
  17.  
  18. my $path;
  19. foreach $path (@ARGV) {
  20.     print "$path = " . $grove->at_path($path) . "\n";
  21. }
  22.  
  23. if ($doc =~ /REC-xml-19980210/) {
  24.     $path = "/spec/header/title/[0]";
  25.     print "$path = " . $grove->at_path($path) . "\n";
  26.     $path = "/spec/header/pubdate/day/[0]";
  27.     print "$path = " . $grove->at_path($path) . "\n";
  28.     $path = "/spec/header/pubdate/month/[0]";
  29.     print "$path = " . $grove->at_path($path) . "\n";
  30.     $path = "/spec/header/pubdate/year/[0]";
  31.     print "$path = " . $grove->at_path($path) . "\n";
  32. }
  33.