Blame examples/perlsax-test.pl
|
Packit |
d27c7e |
use XML::Parser::PerlSAX;
|
|
Packit |
d27c7e |
use XML::Handler::Sample;
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
if ($#ARGV != 0) {
|
|
Packit |
d27c7e |
die "usage: esis-test FILE\n";
|
|
Packit |
d27c7e |
}
|
|
Packit |
d27c7e |
$file = shift @ARGV;
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
$my_handler = XML::Handler::Sample->new;
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
XML::Parser::PerlSAX->new->parse(Source => { SystemId => $file },
|
|
Packit |
d27c7e |
Handler => $my_handler);
|
|
Packit |
d27c7e |
|