in reply to Parsing Data from XML Schemas
..or something along those lines.. -Vladuse XML::Parser; my $filename="justdownloaded.xml"; die "The filename specified in this script ($filename)doesnt exist..?" + if (! -e $filename); my $parser = new XML::Parser(ErrorContext => 2); $parser->setHandlers(Start => \&XMLStartHandler, Char => \&XMLCharHandler); $parser->parsefile($file); sub XMLStartHandler { my ($expat, $element, $attr, $value) = @_; print "Attribute: $attr\n"; print "Value: $value\n"; } sub XMLCharHandler { my ($p, $data) = @_; print "Data: $data\n"; }
|
|---|