Some of these are from XML::Parser::Expat, some added from XML::Parser.
| use XML::Parser; $xml = "<tag1>..<tag2>..</tag2>..</tag1>"; $parser = new XML::Parser( Handlers => { Start => \&start_tag, End => \&end_tag } ); $parser->parse($xml); sub start_tag { print "<$_[1]>\n"; } sub end_tag { print "</$_[1]>\n"; } <tag1> <tag2> </tag2> </tag1> |