PC Welt 2006 November (DVD)/PCWELT_11_2006.ISO/casper/filesystem.squashfs/usr/share/doc/libxml-perl/examples/myhandler.pl

Text File | 1999-05-08 | 286 b | 12 lines

# This is the example script in doc/UsingPerlSAX.pod

use XML::Parser::PerlSAX;
use MyHandler;

my $my_handler = MyHandler->new;
my $parser = XML::Parser::PerlSAX->new( Handler => $my_handler );

foreach my $instance (@ARGV) {
    $parser->parse(Source => { SystemId => $instance });
}