home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / doc / libxml-perl / examples / esis-test.pl next >
Encoding:
Text File  |  1999-05-06  |  377 b   |  20 lines

  1. use XML::ESISParser;
  2. use XML::Handler::Sample;
  3.  
  4. if ($ARGV[0] eq '--sgml') {
  5.     push (@additional_args, IsSGML => 1);
  6.     shift @ARGV;
  7. }
  8.  
  9. if ($#ARGV != 0) {
  10.     die "usage: esis-test FILE\n";
  11. }
  12. $file = shift @ARGV;
  13.  
  14. $my_handler = XML::Handler::Sample->new;
  15.  
  16. XML::ESISParser->new->parse(Source => { SystemId => $file },
  17.                 Handler => $my_handler,
  18.                 @additional_args);
  19.  
  20.