http://qs1969.pair.com?node_id=265006


in reply to Help Using XML::Parser module

The basic premise for XML::Parser is that you define subroutines which get called when a start tag is found, an end tag is found or character data (i.e. between two tags) is found.

From your question, it looks like you need some help with the subroutines.

The three variables $p, $elt, %atts in the tutorial are defined as follows:

sub hdl_start{ my ($p, $elt, %atts) = @_; return unless $elt eq 'message'; # We're only interrested in wh +at's said $atts{'_str'} = ''; $message = \%atts; }

This snippet defines a subroutine called hdl_start. It gets called whenever the parser discovers a start tag (like <chatter>. The parser passes three parameters to the subroutine in the array @_. The first line in the subroutine (my ... then extracts those parameters from the array into the $p, $elt, %atts variables. The documentation for XML::Parser tells us that the parameters are:

Start (Expat, Element [, Attr, Val [,...]])

So, to use a bit of the XML from the tutorial: <INFO site="http://perlmonks.org" sitename="Perl Monks">

I think perhaps you may want to read some of the other Tutorials and may want to invest in the "Learning Perl" (llama) book. Tackling Perl and XML::Parser as your first project may be a little ambitious!